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Dear CP/NET tm 


User: 


Digital Research has introduced the CP/NET operating system as 
the next element in our family of portable operating systems. The 
development of CP/NET follows a progression of portable operating 
systems from Digital Research. It began with the single user CP/M® 
operating system. Next, the multiuser multiprogramming MP/M tm - 
operating system was implemented to share the resources of the CPU 
and its peripherals. The CP/NET operating system was developed to 
share the peripherals and a common data base. 


This shipment contains the 1.1 release of our CP/NET system. 
We have been pleased with the response from our CP/NET test site 
releases and we would like to receive your feedback regarding its 
design, possible extensions, and errors in implementation to 
maintain the same level of confidence that the computer industry has 
in our CP/M operating system. 

There is no standard release configuration for CP/NET, although 
the distribution vehicle is configured for the Altos family of 
microcomputers. Equates and conditional assembly have been used in 
the sample SNIOS.ASM and NETWRKIF.ASM files to demonstrate the 
customization requirements of the portable release configuration of 
CP/NET. 

Based on our experience and the experience of several CP/NET 
test sites, we estimate that 1 to 2 days are required to implement 
the portable version of CP/NET on computers that have running 
versions of CP/M 2.2 for the slaves, MP/M II for the masters, and 
are able to transmit and receive 8 bits of data between them. It 
can require 1 or 2 weeks to implement a highly optimized CP/NET 
system. The amount of time for such a reconfiguration will vary 
widely depending on the experience of the programmer and the 
complexity of the hardware on the target computers. 

If you experience difficulties in reconfiguring CP/NET, contact 
the technical support staff, Digital Research, (408) 375-6262. 


Technical Support Staff 
Digital Research 











CP/NET Network Control Program 
Addendum 


Copyright © 1982 by Digital Research 
CP/M is a registered trademark of Digital Research, 
CP/NET, CP/NOS, MP/M, and PL/I-80 are trademarks 
of Digital Research. 

Compiled May 1982 


Summary of Differences Between CP/NET™ - 1,1 and CP/NET 1.0 


1) CP/NOS TM - is a product. The revision level is 1.1 to 
maintain compatibility with CP/NET. 


2) Both CP/NET and CP/NOS are MP/M tm II compatible. CP/NET 1.1 
should work under MP/M 1.1, but it is not supported, and we 
strongly recommend that all users still running under MP/M 
1.1 upgrade to MP/M 2.0. Otherwise, the SLVSP process is 
compatible with the MP/M II SPOOL process, but not with the 
CP/NET 1.0 SPOOL&D process. 


3) The CP/NET server maintains an internal FCB table for all 
file-oriented transactions. This prevents FCBs from being 
relocated on the requester without the server's knowledge. 
This table must be allocated in the NETWRKIF module. 


4) Server FCB entries are 40 bytes long with the following 
format: 


00-00 occupied field; flags table entries in use 
01-02 address field; points to start of the FCB entry. 

Used as a checksum device to prevent inadvertent 
relocation of FCB table entries 
03-03 open count field 
04-39 FCB entry 
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CP/NET® Release 1.1 
Patch 01, 5/06/82 

- Copyright © 1982 by Digital Research 

CP/M and CP/NET are registered trademarks of Digital Researc 

Compiled May 1982 


Products and Serial Numbers that require updating^ 

CP/M® V2.2 — All serial numbers 
CP/NET® VI.1 — All serial numbers 

Program: PIP.COM 

* •' ;•» - 1 •> r ; ... . 

Error Description: 

Occasionally, the FCB table becorn-es f’uil “sing PI] P "j*h 

CP/NET because PIP does not close its input files. P 

forces PIP to close its input files. 

Patch Procedure: 

Make sure you have a back-up copy of PIP.COM before using DDT 
to make the following changes. 


A> ren pip.sav=pip.com 

A> ddt pip.sav 

DDT VERS X.X 

NEXT PC 

1E00 0100 

-allO > 

0110 lxi b,le06 ; 

0113 call 881 7 

0116 jmp a97 ; 


make sure this patch is not 
installed on top of drivers 
for reader and punch that are 
normally installed in this area 


0119 


-a0a8e 
0A8E jz 110 
0A91 
-g0 


A> save 30 pip.com 

Licensed users are granted the right to include these 
changes in CP/M and CP/NET VI.1 software. 
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CP/NET® Network Control Program Release 1.0 
Application Note 01, 6/18/82 

Copyright © 1982 by Digital Research 
CP/NET is a registered trademark of Digital Research. 

Compiled June 1982 


LOADING THE CCP FROM OTHER THAN DRIVE A 


This application note gives you the location of the File 
Control Block (FCB) for the CCP.SPR file, used by the NDOS to load 
the CP/NET® slave Console Command Processor (CCP). 

The patch procedure shown below changes the drive from which 
the CCP.SPR file is loaded: 


A>ddt ndos.spr 

DDT VERS x.x 
NEXT PC 
0D80 0100 
-s3af 

03AF 01 02 ;02 = drive B:, set to any drive 

03B0 43 . 

-gO 

A>save 13 ndos.spr 
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COPYRIGHT 
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rights reserved. No part of this publication may be 
reproduced, transmitted, transcribed, stored in a 
retrieval system, or translated into any language or 
computer language, in any form or by any means, 
electronic, mechanical, magnetic, optical, chemical, 
manual or otherwise, without the prior written permission 
of Digital Research, Post Office Box 579, Pacific Grove, 
California, 93950. 

This manual is, however, tutorial in nature. Thus, the 
reader is granted permission to include the example 
programs, either in whole or in part, in his own 
programs. 


DISCLAIMER 

Digital Research makes no representations or warranties 
with respect to the contents hereof and specifically 
disclaims any implied warranties of merchantability or 
fitness for any particular purpose. Further, Digital 
Research reserves the right to revise this publication 
and to make changes from time to time in the content 
hereof without obligation of Digital Research to notify 
any person of such revision or changes. 
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CP/M is a registered trademark of Digital Research. ASM, 
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Foreword 


The CP/NET™ User's Guide is a manual for several different 
levels of CP/NET users. Section 1 contains all the information for 
you to use the network when executing CP/M® application programs. 
You need no skill level beyond that required for normal CP/M 
operation. 

Section 2 describes the CP/NET interprocessor message format 
and each of the Network Disk Operating System (NDOS) functions that 
can be invoked from application programs. This section provides the 
necessary information for you to access the network primitives. 

Section 3 provides information for the systems programmer. 
This section describes how to write a custom Slave Network I/O 
System (SNIOS) that performs the CP/NET requester network functions. 
The mechanics of implementing and debugging a custom SNIOS are also 
discussed. Programmers attempting to develop an SNIOS should be 
very familiar with CP/M and have experience in writing a custom CP/M 
BIOS. 


Section 4 provides the information for the systems programmer 
to write a custom Network Interface Process (NETWRKIF) that performs 
the CP/NET server network functions. This section also discusses 
the implementation and debugging of the NETWRKIF module. You must 
have a high degree of competence and experience with MP/M™ to 
develop a custom NETWRKIF. You must be familiar with the process 
and queue descriptor data structures and the MP/M XDOS primitive 
functions. 

Note: throughout this guide, the terms slave and requester are 
synonymous, and the terms master and server are synonymous. 
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Section 1 

CP/NET Features and Facilities 


CP/NET, a network operating system, enables microcomputers to 
access common resources via a network. CP/NET allows microcomputers 
to share and transfer disk files, to share printers and consoles, 
and to share programs and data bases. CP/NET consists of servers 
running MP/M and requesters running CP/M. The servers are hosts 
that manage the shared resources that the network requesters can 
access. 

By separating the logical operating system from the hardware 
environment and placing all hardware independent code in a separate 
I/O module, CP/M and MP/M have gained widespread industry 
acceptance. CP/NET has this same design approach. CP/NET is 
network independent; all network dependent code for the requester 
has been placed in the Slave Network I/O System (SNIOS) module, and 
all network dependent code for the server has been placed in the 
Network Interface Process (NETWRKIF) module. Logical messages 
passed to and from the SNIOS or NETWRKIF are transmitted over an 
arbitrary network between servers and requesters using an arbitrary 
network protocol. 

CP/NET is the first of a family of network operating system 
products from Digital Research. CP/NET is a bridge between a 
microcomputer running MP/M and a microcomputer running CP/M. The 
MP/M server manages resources that are considered public to the 
network. The CP/NET requesters executing CP/M have access to the 
public resources of the server and their own local private resources 
that cannot be accessed from the network. This architecture 
guarantees the security of the requester's resources while still 
permitting the server's resources to be shared among the requesters. 

The MP/M server also responds to the network asynchronously in 
real-time, while the CP/M requesters perform sequential I/O and are 
not capable of monitoring a network interface in real-time. The 
following figure illustrates the relationship between CP/M, MP/M, 
and CP/NET. 



Figure 1-1. Standard CP/NET Configuration 


All Information Presented Here is Proprietary to Digital Research 


1 






CP/NET User's Guide 


1 CP/NET Features and Facilities 


The second network operating system product is CP/NOS™. This 
product is for applications where the requester microcomputer does 
not have any disk resources and is therefore unable to run CP/M. 
CP/NOS consists of a bootstrap loader that can be placed into ROM or 
PROM, a skeletal CP/M that contains only the console and printer 
functions, and the logical and physical portions of the CP/NET 
requester. At the user level, CP/NOS provides a virtual CP/M 2.X 
system to the requester microcomputer. A requester microcomputer 
can consist of simply a processor, memory, and an interface to the 
network. Thus, a CRT with sufficient RAM can execute CP/M programs, 
performing its computing locally while depending on the network to 
provide all disk, printer, and other I/O facilities. The following 
figure illustrates the relationship between CP/NOS, MP/M, and 
CP/NET. 



Figure 1-2. CP/NOS Configuration 


MP/NET™> a third network operating system product, allows MP/M 
systems to share each others resources on the network. With MP/NET, 
there is no distinction between a server and a requester because all 
the nodes on an MP/NET can manage shared resources and initiate 
network messages. Thus, MP/NET provides a symetrical network where 
all the nodes have equal capability. The following figure 
illustrates the relationship between MP/M and MP/NET. 



Figure 1-3. MP/NET Configuration 
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1 CP/NET Features and Facilities 


The three products described above, CP/NET, CP/NOS, and MP/NET, 
can be combined to produce a composite network consisting of MP/M 
servers that can share each others files, CP/M requesters, and 
diskless CP/NOS requesters. 


1.1 Functional Description of CP/NET 

CP/NET operates in multiple processor environments that range 
from tightly to loosely coupled processors. In this document, 
tightly coupled processors are defined as processors sharing all or 
a portion of common memory. Communication of interprocessor 
messages is at memory speed. Loosely coupled processors are those 
that do not have access to memory that is common or accessible by 
both processors. Communication between loosely coupled processors 
can be implemented with a serial data link or possibly a high-speed 
parallel bus. 

The CP/NET operating system is an upward-compatible version of 
CP/M 2.X, that provides selected system I/O facilities to requester 
microcomputers via a network. Network access to system I/O 
facilities is provided by additions to the Basic I/O System (BIOS) 
called the Slave Network I/O Systems (SNIOS) and a new Basic Disk 
Operating System (BDOS) called the Network Disk Operating System 
(NDOS). The requester NDOS and NIOS are loaded and executed while 
running under CP/M 2.X. 

In addition to the standard CP/M facilites, CP/NET provides the 
following capabilities: 

• The network can be accessed for system I/O facilities. 

• Messages can be transmitted and received between requesters and 
servers. 

• With an electronic mail system, requesters and servers can send 
mail to each other. 


The MP/M server is implemented by adding some resident system 
processes at system generation (GENSYS) time. The resident system 
processes include the slave support processes (SLVSP), provided by 
Digital Research to perform the logical message handling functions 
for the server, and the network interface processes (NETWRKIF), 
customized by you for a particular hardware network interface. 


1.1.1 CP/NET Configurations 

The following figures illustrate possible CP/NET 
configurations. The interprocessor message format permits multiple 
CP/NET servers, so that if the hardware capability exists, more than 
one server can be present in a network. 
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CP/NET 


CP/NET 

Server 


Requester 


r 

—Printer 





Disk(s) 




Disk(s) 


Figure 1-4. Server and Single Requester 


CP/NET <■ 

Server 4 


> 


CP/NET 
Requester 1 


Printer 
Disk(s) 


> 


CP/NET 
Requester 2 


Figure 1-5. Active Hub Star Configuration 



Figure 1-6. Ring Configuration 
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1.1 Functional Description of CP/NET 



Figure 1-7. Bus Configuration 


1.1.2 Hardware Environment 

The hardware environment for CP/NET must include two or more 
microcomputers that have some means of interprocessor communication. 

One of the microcomputers must execute the MP/M operating 
system to provide the CP/NET server facilities. The processor 
executing MP/M must be an 8080, 8085, or Z80 CPU with a minimum of 
32K bytes of memory, 1 to 16 consoles, 1 to 16 logical or physical 
disk drives each containing up to eight megabytes, a clock/timer 
interrupt, and a network interface. 

The CP/NET requester microcomputers must have 8080, 8085, or 
Z80 CPUs with at least 16K bytes of memory , 0 to 16 logical or 
physical disk drives each containing up to eight megabytes, and a 
network interface. A console is not absolutely required although it 
is strongly recommended. 

While not an absolute requirement, it is strongly recommended 
that requester processors have and control their own console devices 
because typical microcomputer applications require significant 
amounts of console I/O. Thus, without a local console of its own, a 
requester places a very large demand upon the network and the CP/NET 
server. 


1.2 Requester Commands 

This section describes the requester commands that enable you 
to access the network and use the resources on the network. All the 
requester commands are actually COM files that reside on disk at the 
requester. 
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1.2 Requester Commands 


1.2.1 LOGIN 

The LOGIN command allows a requester to log in to a specified 
server. A requester must log in before any resources on the server 
can be accessed. Once a requester has logged in, it is not 
necessary to log in again even though the requester might power down 
and then power up again. A requester can only be logged off a 
server by an explicit LOGOFF command issued from the requester. The 
command takes the general form: 

LOGIN {password}{[mstrlD]} 

where: password is an optional 8 ASCII character password; 

the default password is PASSWORD. 

[mstrlD] is an optional 2 digit server processor ID; 
the default is [00]. 


The following is the most simple form: 
A>LOGIN 


1.2.2 LOGOFF 

The LOGOFF command allows a requester to log off from a 
specified server. Once a requester has logged off, the server 
cannot be accessed again until you issue a LOGIN command. The 
command takes the general form: 

LOGOFF {[mstrlD]} 

where: [mstrlD] is an optional 2 digit server processor ID; 

the default is [00]. 


The following is the most simple form: 

A>LOGOFF 

1.2.3 SNDMAIL 

The SNDMAIL command allows a requester to send mail to another 
requester or server. The command takes the general form: 

SNDMAIL {[mstrlD]} (destID) "message to be sent" 

where: [mstrlD] is an optional 2 digit server processor ID; 

the default is [00]. 

(destID) is the 2 digit destination processor ID. 
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1.2 Requester Commands 


"message" is any message enclosed in quotation 
marks. 


The following is the most simple form: 

A>SNDMAIL (12) "Hello" 

1.2.4 RCVMAIL 

The RCVMAIL command allows a requester to obtain all the mail 
posted for him by a specified server. The command takes the general 
form: 

RCVMAIL {[mstrlD]} 

where: [mstrlD] is an optional 2 digit server processor ID; 

the default is [00]. 


The following is the most simple form: 

A>RCVMAIL 


1.2.5 NETWORK 

The NETWORK command enables a requester to assign selected I/O 
to the network. The NETWORK command updates the requester 
configuration table. The command takes the general form: 

NETWORK {local dev} {=} {server dev}{[mstrlD]} 

where: local dev is the specification of a local 

device such as LST: A: f ... CON: 

server dev is the specification of a server 
device such as A:,... 

[mstrlD] is an optional 2 digit server processor ID: 
the default is [00]; 


The following are some typical assignments: 


A>NETWORK LST: 

A>NETWORK LST:=3[07] 
A>NETWORK CON:=2 
A>NETWORK B:=D: 


(list dev #3 on server 07) 
(console #2 on dflt mstr) 
(logical B: is servers D:) 
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1.2 Requester Commands 


1.2.6 LOCAL 

The LOCAL command enables a requester to reassign selected I/O 
back to local from the network. The LOCAL command updates the 
requester configuration table. The command takes the general form: 

LOCAL {local dev} 

where: local dev is the specification of a local 

device such as: LST:, A:,... CON: 

The following are some typical assignments: 

A>LOCAL LST: 

A>LOCAL B: 


1.2.7 ENDLIST 

The ENDLIST command simply sends the control-Z (lAh) character 
to the list device. This command terminates list outputs to the 
network. 


A> ENDLIST 


1.2.8 DSKRESET 

The DSKRESET command is identical in function to the PRL that 
executes under MP/M. It resets the specified drive, so that a disk 
can be changed. The command takes the general form: 

DSKRESET {drive(s)} 

where: drive is a list of the drive names to be 

reset. 


The following are some typical disk resets: 

A >DSKRESET (resets all drives) 

A >DSKRESET B: ,F: (reset drive B: and F:) 


1.2.9 CPNETLDR 

The CPNETLDR command loads the requester CP/NET system. 
Specifically, the SNIOS.SPR file loads and relocates directly below 
the CP/M BDOS, and the NDOS.SPR file loads and relocates directly 
below the SNIOS. 
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1.2 Requester Commands 


From that point on, the BIOS, BDOS, SNIOS, and NDOS remain resident 
in memory. The CPNETLDR does not require any user customization. 
It displays an error message if loader errors are encountered. The 
following example shows a typical CPNETLDR execution. 

A>CPNETLDR 


CP/NET 1.1 Loader 


BIOS 


F600H 

0A00H 

BDOS 


E800H 

0E00H 

SNIOS 

SPR 

E500H 

0300H 

NDOS 

SPR 

DB00H 

0A00H 

TPA 


0000H 

DB00H 


CP/NET 1.1 loading complete. 
NDOS initialization complete. 
<Warm Boot> 

A> 


1.2.10 CPNETSTS 

The CPNETSTS command displays the requester configuration 
table. The requester configuration table indicates the status of 
each logical device, that is either local or assigned to a specific 
server on the network. The following example shows a typical 
CPNETSTS execution. 


A>cpnetsts 

CP/NET 1.1 Status 

Requester processor ID = 34H 
Network Status Byte = 10H 
Disk device status: 


Drive 

A: = 

LOCAL 

Drive 

B: = 

LOCAL 

Drive 

C: = 

Drive A: < 

Drive 

D: = 

Drive B: < 

Drive 

E: = 

LOCAL 

Drive 

F: = 

LOCAL 

Drive 

G: = 

LOCAL 

Drive 

H: = 

LOCAL 

Drive 

I: = 

LOCAL 

Drive 

J: « 

LOCAL 

Drive 

K: = 

LOCAL 

Drive 

L: = 

LOCAL 

Drive 

M: = 

LOCAL 

Drive 

N: = 

LOCAL 

Drive 

0: = 

LOCAL 

Drive 

P: = 

LOCAL 

Console 

Device = LOCAL 


on Network Slave ID = 


00H 

00H 


List Device = List #0 on Network Slave ID = 00H 
A> 
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1.2 Requester Commands 


1.2.11 CONTROL-P 

A CTRL-P causes console output to be echoed to the list device 
until the next CTRL-P. The messages CTL-P ON and CTL-P OFF are 
displayed at the console. When the requester list device has been 
networked, the local system is now using the server printer, for 
example, the second CTRL-P causes a CTRL-Z (ASCII 1AH) to be sent to 
the server, causing the server to close and print the spool file. 


Note: when the requester is using the server printer by invoking 
with a CTRL-P, the requester must issue a second CTRL-P to cause the 
server to close the spooled file and begin printing it. When the 
requester is using the server printer and has invoked it with a 
program such as PIP, the warm boot that occurs at program 
termination causes the required CTRL-Z to be sent to the server to 
close and print the spooled file. 

The program ENDLIST is no longer needed to terminate network 
list output in these situations. 


1.3 Server Commands 

This section describes the server commands that enable the 
operator of an MP/M server to access network mail. This section 
also describes a spooler that spools and deletes files. The 
requester commands to access the network mail are actually PRL files 
that reside on disk at the server. 


1.3.1 BROADCST 

The BROADCST command allows a server to broadcast a piece of 
mail to all the logged in requesters. The command takes the general 
form: 

BROADCST "message to be sent" 

where: "message" is any message enclosed in quotation marks. 


The following is a typical broadcast: 

OA>BROADCST "Printer #1 will be taken off-line at 14:00" 

1.3.2 MRCVMAIL 

The MRCVMAIL command allows a server to obtain all the mail 
posted for him. The command takes the general form: 

MRCVMAIL 
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1.3 Server Commands 


1.3.3 MSNDMAIL 

The MSNDMAIL command allows a server to send mail to another 
requester or server. The command takes the general form: 

MSNDMAIL {[mstrlD]} (destID) "message" 

where: [mstrlD] is an optional server processor ID; 

the default is [00]. 

(destID) is the destination processor ID. 

"message" is any message enclosed in quotation 
marks. 

The following is the most simple form: 

0A >MSNDMAIL (12) "Hello" 

End of Section 1 
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End of Section 1 
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Section 2 

CP/NET Requester Interface Guide 


This section describes the logical portion of the CP/NET 
requester and the CP/NET system organization including the memory 
structure, the message format for interprocessor communication, the 
recommended RS-232C point-to-point protocol, and the Network Disk 
Operating System (NDOS) function calls. 

The requester portion of CP/NET is logically divided into four 
modules: the Basic I/O System (BIOS), the Basic Disk Operating 
System (BDOS) , the Slave Network I/O System (SNIOS) , and the Network 
Disk Operating System (NDOS). The BIOS and BDOS are unmodified from 
CP/M and are described in the appropriate CP/M documentation. The 
SNIOS is a hardware-dependent module that defines the low level 
interface to the NDOS that is necessary for network I/O. Although 
Digital Research supplies a standard SNIOS, Section 3 provides 
explicit instructions for field reconfiguration of the SNIOS to 
match nearly any hardware network environment. 

The NDOS intercepts all CP/M BDOS function calls and determines 
if the operation is to be performed locally or on the network. If 
the operation is local, control is transferred to the BDOS. If the 
operation is to be done on the network, the NDOS forms the 
appropriate logical message, and then sends it to the server to 
perform the specified function via the SNIOS. After sending the 
function to the server, the requester waits for a response. Thus, 
there is a full handshake between the requester and the server for 
each function that the requester makes of the server. 
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2 CP/NET Requester Interface Guide 


The following figure shows CP/NET requester memory structure: 


high 



CCP 

TPA 


is loaded at top of the 
under the NDOS 


low 


Figure 2-1. CP/NET Requester Memory Structure 


The CPNETLDR program loads and relocates the SNIOS and NDOS 
underneath the BDOS. From that point on, the SNIOS and NDOS remain 
in memory, trapping warm and cold boots that simply load and 
relocate the CCP at the top of the TPA under the NDOS. 


2.1 CP/NET Interprocessor Message Format 

The simple message format that CP/NET uses for interprocessor 
communication includes some packaging overhead and the actual 
message itself. The packaging overhead consists of a message format 
code, a CP/NET destination address, a CP/NET source address, a CP/M 
function code, and a message size, defined as follows. 
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2.1 CP/NET Interprocessor Message Format 


Message Format Code 

The message format code is a single byte that specifies the 
format of the message itself. Message formats 0 - 127 are reserved 
by Digital Research for general interprocessor message format codes. 
The general interprocessor format codes follow the message format 
shown below, but differ in length of the individual fields (Appendix 
A) . 


The odd-numbered format codes, least significant bit is a 1, 
are for response messages sent back from servers to requesters. 
Thus, a CP/M disk read function sent from a requester to a server 
has a message format code of 0, and the return code sent back from 
the server to the requester has a message format code of 1. 

You should implement the general interprocessor message formats 
0 and 1 as shown in Appendix A because they enable interconnection 
among microcomputers from different vendors. 


Message Destination Processor ID 

The message destination processor ID field is generally one 
byte long. However, some message formats specify a two-byte field. 

A destination field value of 0 is a special case. It specifies 
the local network level server as the destination processor. This 
destination address is particularily useful in systems where a 
multilevel network has been implemented, in which each requester can 
only directly access one server, and the requesters do not 
necessarily know the address of the server at their network level. 


Message Source Processor ID 

The message source processor ID field is generally one byte 
long. However, some message formats specify a two-byte field. 


CP/M Function Code 

The CP/M function code field is one byte long. The size of the 
message data field generally depends upon the CP/M function. Each 
CP/M function has a specific number of bytes to be sent to the 
server and a specific number of bytes to be returned to the 
requester. Appendix E provides the logical message specification 
for each of the CP/M functions. Some of the CP/M function codes 
have no network equivalent function. 
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2.1 CP/NET Interprocessor Message Format 


Size 

The size field is generally one byte long. However, some 
message formats specify a two-byte field. The size value has a bias 
of 1. Thus, a size of 0 specifies an actual size of 1, while a size 
of 255 specifies an actual size of 256. With a one byte size field, 
the minimum data field is 1 byte while the maximum is 256. 

The message format shown in the following figure, does not 
contain a cyclic redundancy code (CRC) or any other error checking 
as a part of the packaging overhead. The user written SNIOS can add 
the error checking when it actually places the message onto the 
network and then test the message when the SNIOS receives a message 
from the network. This function is intentionally left to the user, 
avoiding redundant error checking where standard interface 
protocols, both in software and hardware, might already provide 
error checking. 


Msg 

Fmt 

Dest 

Addr 

Src 

Addr 

Func 

Code 

Size 

Data | 




L_ Actual 

message, 
size + 1 
bytes 

— Size, Data field 
length - 1 

I_ CP/M Function code 

— Message source processor ID 

_ Message destination processor ID 

— Message format code 


Figure 2-2. Message Format 


2.2 Recommended RS-232C Point-to-Point Protocol 

Digital Research developed a relatively simple RS-232C point- 
to-point protocol to provide a demonstration vehicle for CP/NET and 
to encourage compatibility among the hardware vendors. The 
protocol, as implemented in the sample SNIOS and NETWRKIF, breaks 
the logical message into a fixed header and a variable length data 
portion whose size is obtained from the fixed header. This 
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2.2 RS-*232C Point-to-Point Protocol 


simplifies operation with DMA channels that need terminal counts and 
also provides a checksum for the header that contains the SIZ field. 

As local network standards emerge, possibly from the IEEE, we 
will provide other protocols as appendixes to this manual or as 
CP/NET application notes. It is important to realize that CP/NET 
does not require any specific protocol because of its logical 
message structure. However, a protocol is recommended when 
connecting microcomputers from different vendors. 

Appendix B contains the recommended server-requester handshake 
for RS-232C, and appendixes C and D illustrate the application of 
the protocol to 8-bit binary and 7-bit ASCII configurations. 


2.3 Network Disk Operating System Functions 

The Network Disk Operating System (NDOS) is an extension of the 
CP/M 2.X Basic Disk Operating System (BDOS). The CPNETLDR program 
loads and excutes the NDOS portion of CP/NET on a running CP/M 
system. NDOS allows selected system I/O functions to be performed 
on a CP/NET server via the network rather than on the requester 
itself. For example, list output can be directed to a specific 
server on the network. The NDOS also permits a mix of local and 
network logical or physical disk drives. In such applications, you 
can specify the mix of drives at initialization using the 
configuration table, or at run-time using the NETWORK and LOCAL 
commands. 

The NDOS intercepts all the CP/M calls made to location 0005H 
in the requester and then uses the requester configuration table 
located in the SNIOS to determine whether the function is to be 
performed locally or on the network. 

Several network disk operating system functions have been added 
to the CP/M BDOS functions. The following paragraphs describe the 
entry parameters and returned values for each NDOS function. 

To gain access to the NDOS functions, pass a function number 
and information address through the primary entry point at location 
0005H. In general, the function number is passed in register C with 
the information address in the double register pair DE. Single-byte 
values are returned in register A, with double-byte values returned 
in HL. A OFFH value is returned when the function number is out of 
range. The register passing conventions of NDOS agree with those of 
Intel® PL/M™ systems programming language. 

Note: a returned value of FFH can also indicate a network interface 
failure. Such failures can be detected by obtaining the network 
status byte (Function 68). 
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FUNCTION 64: LOGIN 

Entry Parameters: 


Register C: 

40H 

DE: 

Login Msg Adr 

Returned Value: 


Register A: 

Return Code 


The LOGIN function allows a requester to communicate with a 
specified server. The passed parameter, in the DE register pair, is 
the address of the login message. The login message consists of a 
one-byte server ID, followed by an 8-character ASCII field 
containing a password. 

The return code sent back in register A indicates whether or 
not the login was successful. A value of 0 indicates a successful 
login while an FFH indicates login failure. Failure could result 
because the maximum number of requesters for the server to support 
have already logged in, or because of an incorrect password. 

A passed server processor ID of zero specifies the direct 
server of the requester. It is used when the server processor ID is 
unknown and when the requester has only a single server. For 
example: 


LOGIN EQU 64 


MVI C,LOGIN 

LXI D,Loginmsg 

CALL BDOS ;login to network 


Loginmsg: 

DB 

DB 


OOh jdefault server ID 

'Secret ' ;password 
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FUNCTION 65: LOGOFF 


Entry Parameters: 
Register C: 

E: 

41H 

Master 

Proc. ID 

Returned Value: 

Register A: 

Return 

Code 


The LOGOFF function indicates that a requester no longer 
requires the services of the server. A logoff frees the requester 
support resident system process and makes this available to another 
requester wanting to login. The passed parameter, in register E, is 
the server processor ID. A return code of 0 indicates a successful 
logoff, while a FFH indicates failure. A failure usually occurs if 
the requester was not logged into the server in the first place. 
For example: 


LOGOFF 


EQU 

65 



• • • 

MVI 

C,LOGOFF 



MV I 

E,07h ;server 

ID = 

07h 

CALL 

BDOS ;logoff 

from 

network 


FUNCTION 66: SEND MESSAGE ON 
NETWORK 


Entry Parameters: 

Register C: 42H 
Registers DE: Message Address 

Returned Value: 

Obtained from a subsequent call 
to receive msg, first byte of 
message data field. 


The SEND MESSAGE ON NETWORK function sends the message stored 
in memory at the location given by DE to the destination processor 
on the network. This function can send any function to the network 
because it provides direct access to the SENDMSG entry point in the 
SNIOS. 
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This function can send electronic mail to another requester or 
server on the network by specifying SEND MESSAGE ON NETWORK as the 
FNC field of the message. 

Note: immediately following every message sent on the network, you 
must receive the acknowlege message back from the server using the 
receive message function. 

For example, after sending a SEND MESSAGE ON NETWORK logical 
message to a server, you must make a RECEIVE MESSAGE FROM NETWORK 
call to get the return code back from the call. The returned value 
is a return code that is 0 if the SEND MESSAGE ON NETWORK logical 
message was successfully posted at the server, or an FFh if 
unsuccessful. Failure to post the message results either from the 
requester processor not being logged in, or a full mailbox at the 


For example: 



SNDMSG 

EQU 

66 


RCVMSG 

EQU 

• • • 

67 



MVI 

C,SNDMSG 



LXI 

D,Letter 



CALL 

BDOS 

;send message on network 


MVI 

C,RCVMSG 



LXI 

D,Letter 



CALL 

BDOS 

;receive acknowledge 
; from server, msg.msg(O) 
; will get return code 


• • • 




Letter: 



DB 

OOh 

;msg.fmt 

DB 

OOh 

;msg.did 

DB 

Olh 

;msg.sid 

DB 

SNDMSG 

;msg.fnc 

DB 

10 

ymsg.siz 

DB 

02h 

;msg.msg(0) (message dest) 

DB 

'Hello 

Gary' ;msg.msg(l) - msg.msg(lO) 
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FUNCTION 67: RECEIVE MESSAGE FROM 
NETWORK 

Entry Parameters: 


Register C: 

43H 

Registers DE: 

Message Buffer 
Address 


The RECEIVE MESSAGE FROM NETWORK function receives a message 
from the network and places it into the message buffer addressed by 
registers DE. This function provides direct access to the 
RECEIVEMSG entry point in the SNIOS. 

Use this function to receive electronic mail from another 
requester or server on the network by specifying RECEIVE MESSAGE 
FROM NETWORK as the FNC field of a message sent on the network, and 
then making the BDOS RECEIVE MESSAGE FROM NETWORK call. For 
example: 


SNDMSG 

EQU 

66 


RCVMSG 

EQU 

67 



• • • 

MVI 

C,SNDMSG 



LXI 

D,Letter 



CALL 

BDOS 

;send message on network 
; contains receive msg fnc 


MVI 

C,RCVMSG 



LXI 

D,Letter 



CALL 

BDOS 

;receive message from ntwrk 


• • • 




Letter: 

DB 

OOh 

;msg.fmt 

DB 

OOh 

;msg.did 

DB 

Olh 

;msg.sid 

DB 

RCVMSG 

;msg.fnc 

DB 

0 

;msg.siz 

DS 

1 

;msg.msg(0) (for src ID) 

DS 

255 

;msg.msg(1)-msg.msg(255) 


All Information Presented Here is Proprietary to Digital Research 


21 





CP/NET User's Guide 2.3 Network Disk Operating System Functions 


FUNCTION 68: GET 

NETWORK STATUS 

Entry Parameters: 

Register C: 

44H 

E: 

Processor ID 

Returned Value: 

Register A: 

Network Status 


The GET NETWORK STATUS function returns the network status byte 
defined in Section 3.1. 


FUNCTION 69: GET CONFIGURATION 
TABLE ADDRESS 

Entry Parameters: 


Register C: 

45H 

Returned Value: 


Registers HL: 

Table Address 


The GET CONFIGURATION TABLE ADDRESS function returns the 
address of the configuration table maintained in the user-written 
SNIOS. Various system programs use and alter the information 
provided in the configuration table to redirect I/O to the network. 
The configuration table for CP/NET requesters is described in 
Section 3.2. 


End of Section 2 
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Section 3 

CP/NET Requester Alteration Guide 


CP/NET can support 1 to 16 requesters per server. Each CP/NET 
requester consists of code that is dependent on the physical 
environment, network interface, and an operating system (NDOS) that 
is capable of using the network to perform system I/O. 

The code that performs the physical network interface functions 
for the CP/NET requester resides in a user-supplied module named the 
Slave Network I/O System (SNIOS). You prepare the SNIOS in system 
page relocatable format and in a file of type SPR. The SNIOS is 
loaded into memory by the CPNETLDR program and is then used by the 
NDOS. 


This section assists you in customizing the SNIOS. Included is 
a discussion of the SNIOS entry points, the requester configuration 
table, and the steps to implement and debug a custom SNIOS. 
Appendix G provides a listing of a sample SNIOS. 


3.1 Slave Network I/O System Entry Points 

The SNIOS begins with a jump vector containing the network I/O 
system entry points as shown below: 


NIOS+OOH 

JMP 

NETWORKINIT 

Network initialize 

NIOS+03H 

JMP 

NETWORKSTS 

Rtn network 

status 

NIOS+06H 

JMP 

CONFIGTBLADR 

Rtn Config. 

Tbl Adr 

NIOS+09H 

JMP 

SENDMSG 

Send msg on 

network 

NIOS+OCH 

JMP 

RECEIVEMSG 

Receive msg 

from ntwk 

NIOS+OFH 

JMP 

NTWRKERROR 

Network error 

NI0S+12H 

JMP 

NTWRKWBOOT 

Network warm 

i boot 


Each jump address corresponds to a particular subroutine that 
performs the specific function. The exact responsibilities of each 
entry point subroutine are given below. 


NETWORKINIT 

This SNIOS entry point is called when control is transferred to 
the NDOS initialization entry point after being loaded by the 
CPNETLDR. This subroutine performs any required network interface 
initialization. Initialization may include reading back-panel 
switches, or some other suitable source, to obtain the requester 
processor ID for the configuration table. 
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3.1 Slave Network I/O System Entry Points 


NETWORKSTS 

This subroutine returns a single byte in register A and 
determines the status of the network interface. The error bits are 
to be reset when the call is made. The format of the network status 
byte is shown below: 



where, active = 1 if requester logged in 

ctrlps = 1 if control P is active 

rcverr = 1 if error in received 

message 

snderr= 1 if error in sending 
a message 


CONFIGTBLADR 


This subroutine returns the configuration table address in the 
HL register pair. 

SENDMSG 

This subroutine enables messages to be sent from one processor 
to another via the network. The passed parameter, in registers BC, 
is a pointer to the message. Control is not returned from this 
procedure until the message has been sent. Thus, the message 
pointed to by the BC register pair can be modified immediately upon 
return. The return code, in register A, has either a value of 0 
indicating success, or FFH indicating failure to access the network. 
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3.1 Slave Network I/O System Entry Points 


RECEIVEMSG 

Messages are received from another processor through the 
network with this subroutine. The passed parameter, in registers 
BC, is a pointer to a message buffer. Control is not returned from 
this procedure until the message has been received and placed into 
the message buffer. Thus, the message in the buffer is valid 
immediately upon return. The return code, in register A, has either 
a value of 0 indicating success, or FFH indicating failure to access 
the network. 


NTWRKERROR 

When network errors are encountered, this procedure is called. 
Any required network interface device reinitialization should be 
performed. In typical SNIOS implementations, executing a return 
from the NTWRKERROR procedure results in a retry. If a retry is not 
wanted, an appropriate message is displayed on the console and a 
warm boot is performed. 


NTWRKWBOOT 


This SNIOS procedure is called each time the NDOS reloads the 
CCP. The sample SNIOS displays a <Warm Boot> message on the console 
only as a demonstration of NTWRKWBOOT. More practical applications 
of this procedure include interrogating the CP/NET server' for 
messages. In this way, each time a warm boot is performed, any 
messages posted for the requester can be displayed on the console. 


3.2 Requester Configuration Table 

The configuration table that resides in the CP/NET requester 
SNIOS allows reassignment of physical and logical devices. The 
configuration table creates a mapping of logical to physical devices 
that can be altered during CP/NET processing. In particular, the 
configuration table specifies the system I/O to be accessed through 
the network. 
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CP/NET User's Guide 


The requester configuration table is defined as follows: 

000-000 Requester status byte 

001-001 CP/NET requester processor ID 

002-033 Disk Devices, 16 two-byte pairs, first byte 
high-order bit on = drive on network with 
the server drive code in the least 
significant 4 bits, the second byte 
contains the server processor ID 


034-035 Console Device, first byte high-order bit 
on = console I/O on network with the 
server console number in the least 
significant 4 bits, the second byte 
contains the server processor ID 

036-037 List Device, first byte high-order bit 

on = list to network with the server list 
device number in the least significant 
4 bits, the second byte contains the 
server processor ID 


038-038 

039-043 

044-044 

045-172 


List Device buffer index 

List Device logical message header: FMT, 
DID, SID, FNC and SIZ 

List Device server list device number 
List Device buffer 


3.3 Implementing and Debugging a Custom SNIOS 

The following steps indicate how to implement and debug a 
custom SNIOS. 


1) Obtain assembled listings of the SNIOS.ASM source file that 
require modification. You can use MAC™, RMAC™-, or ASM™. 
If you use ASM, the title, name, if and else statements 
must be removed from the source files to assemble 
correctly. It is highly recommended that you use RMAC 
because it simplifies the task of generating the SPR files 
when used in conjunction with LINK™. Otherwise, the SPR 
files have to be generated in the same manner as for MP/M 
XIOS.SPR generation. 

A>RMAC SNIOS 
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3.3 Implementing, Debugging Custom SNIOS 


2) Study the SNIOS.PRN listing. ASCII equ; if true it 
specifies that the message format is 7-bit ASCII, if false 
it specifies a binary 8-bit message format. The ASCII mode 
is sometimes useful in debugging, but in practice it should 
not be used where it is possible to transmit 8-bit serial 
data. 

The only code that requires modification in the SNIOS.ASM 
file is contained in the Charout, Charin, and Delay 
procedures. The Charout and Charin procedures can be 
conditionally assembled for either a Dynabyte DB8/2™, a 
Digital Microsystems DSC-2™, or an ALTOS 8000-2. The NOPs 
in the Charout procedure are simply padding, so that the 
length of the DB8/2 SNIOS and DSC-2 SNIOS is the same. It 
saved making an extra listing. 

Note: the Charin procedure contains a timeout loop that 

might have to be modified according to the requester 
processor speed. This is also true of the Delay procedure. 

3) Prepare the SNIOS.SPR file as shown below: 

A>RMAC SNIOS 
A>LINK SNIOS[OS] 

The output of the linker is the SNIOS.SPR file. 

If you do not use RMAC and LINK, use ASM, PIP, and GENMOD 
as shown below: 

A>ASM SNIOS 

/assemble with ORG 0000H 

A>REN SNIOSO.HEX=SNIOS.HEX 

/edit SNIOS.ASM ORG statement 

A>ASM SNIOS 

/assemble with ORG 0100H 

A>REN SNIOS1•HEX=SNIOS.HEX 

A> PIP SNIOS.HEX=SNIOSO.HEX,SNIOS1.HEX 

/concatenate the HEX files 

A>GENMOD SNIOS.HEX SNIOS.SPR 

/generate the SNIOS.SPR file 


4) Copy the following files to the requester: 

CPNETLDR.COM = Loads CP/Net (NDOS.SPR and SNIOS.SPR) 
CPNETSTS.COM = Displays status of the system I/O 
NETWORK.COM = Redirects I/O from local to network 
LOCAL.COM = Redirects I/O from network to local 

DSKRESET.COM = Resets specified logical drives 
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3.3 Implementing, Debugging Custom SNIOS 


LOGIN.COM 

LOGOFF.COM 

SNDMSG.COM 

RCVMSG.COM 

NDOS.SPR 

SNIOS.SPR 

CCP.SPR 


Logs on to server 
Logs off from server 

Send message to specified requester or server 

Receive message 

Network Disk Operating System 

Custom Slave Network I/O System 

Console Command Processor 


5) The SNIOS can be debugged in a manner similar to MP/M, as 
follows: 

A>DDT CPNETLDR.COM 

*IB 

*sl03 

0103 07 xx ;where xx is the restart the debugger uses 
; usually 7 

*g 


At this point, CP/NET loads, displaying the memory map, and 
then breaks at the specified restart. 

You can place breakpoints at desired locations, and then 
issue a G command that specifies the address following the 
restart instruction where the CPNETLDR broke. 

Perhaps the most critical area that requires adjustment of 
the SNIOS for a specific network configuration is in the 
timeout code of the Charin procedure. If too short a time 
is allowed, the server might not be able to complete the 
function because of a heavy request load from the 
requesters. If too long a time is specified, communication 
breaks on the network can go undetected for a period of 
time and make both error recovery and precise detection 
difficult. 

Another critical parameter that requires adjustment for 
different environments is ALWAYS$RETRY. This Boolean, when 
true, controls conditional assembly that always produces 
retries on network failures. In this mode of operation, 
it is possible to recover from broken communication between 
the requester and a server. However, it does hang the 
requester in a busy retry mode when failures occur. 


End of Section 3 
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Section 4 

CP/NET Server Alteration 


CP/NET must have one or more servers. Each CP/NET server 
consists of resident system processes running under the MP/M 
operating system and code that is dependent on the physical 
environment, network interface. 

This section contains information that allows you to write a 
custom Network Interface Process (NETWRKIF). It includes a 
discussion of the server network I/O system, the server 
configuration table, and the steps required to implement and debug a 
custom NETWRKIF. 


4.1 Server Network I/O System 

The code that performs the physical network interface functions 
for the CP/NET server resides in a user-supplied module named the 
Network Interface Process (NETWRKIF). You prepare the NETWRKIF in 
the form of a Resident System Process (RSP). It is included at 
GENSYS time under MP/M and then loaded as part of the MPM.SYS file 
into memory by the MPMLDR. 


4.2 Network Interface Process 

The network interface processes are part of the user-written 
NETWRKIF module. They perform the actual physical I/O for the 
CP/NET server. There is typically one network interface process per 
requester that the server supports. The names of the requester 
network interface process descriptors range from NtwrklPO to 
NtwrkIPF where the last character in the process descriptor name is 
a single Hex-ASCII digit in the decimal range of 0 to 15. 

Queues pass messages between the interface processes and the 
requester support processes. The requester support processes are 
provided for the CP/NET server in the form of a resident system 
process (Section 4.3). 

Two queues per requester supported by the server are created 
during NETWRKIF initialization: one for message input and one for 
message output. The queue names for input, network queue in, range 
from NtwrkQIO to NtwrkQIF. The queue names for output, network 
queue out, range from NtwrkQOO to NtwrkQOF. 
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4.2 Network Interface Process 


The following figure illustrates the interaction between the 
slave support processes and the network interface processes that 
actually handle the direct physical I/O between the server and the 
requesters. 



Figure 4-1. Relationships Between Processes 


The messages passed between the network interface processes and 
the slave support processes are two-byte pointers to the actual 
message received from the network or to be sent to the network. 


4.3 Slave Support Processes 

The CP/NET server supports one process per requester. The 
slave support processes all execute the same reentrant piece of 
code. They perform the function specified by the message received 
from the requester through the network. The slave support process 
names range from SlaveOSP to SlaveFSP. 

An FCB table is maintained for each requester. Specific FCBs 
are identified by FCB addresses in the server. For example, a CP/M 
open file function message received from a requester through the 
network includes drive, filename, filetype, and extent. The server 
returns the address of the entry in the server FCB table. Only the 
exact amount of information required to perform the function is 
transmitted on the network. The actual FCB for file I/O is prepared 
in the FCB table in the server and used when the open is performed 
by the server. 
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4.4 Server Configuration Table 


4.4 Server Configuration Table 

The configuration table that resides in the CP/NET server 
NETWRKIF provides information about the network. The server uses 
information during initialization to set up the requester support 
processes. 


The configuration table for servers is defined as follows: 


000-000 

001-001 

002-002 

003-003 

004-005 

006-021 

022-029 

030- 


Server status byte 
Server processor ID 

Max number of requesters to be supported (1-16) 
Number of logged in requesters 
16-bit vector of logged in requesters 
Requester processor IDs, one byte per processor 
Login password 

Requester support process descriptors and stacks 


4.5 Implementing and Debugging a Custom NETWRKIF 

The steps to implement and debug a custom NETWRKIF are as 
follows: 

1) Obtain an assembled listing of the NETWRKIF.ASM source file 
that requires modification. Use MAC, RMAC, or ASM. If you 
use ASM the title, name, and if and else statements must be 
removed from the source files to assemble correctly. It is 
highly recommended that you use RMAC because it simplifies 
the task of generating the *.SPR files when used in 
conjunction with LINK. Otherwise, the *.SPR files have to 
be generated in the same manner as for MP/M XIOS.SPR 
generation. 

A>RMAC NETWRKIF 

2) Study the NETWRKIF.PRN listing. This initial version of the 
server network I/F module is by no means optimal, but it is 
portable. That is, it should be a very simple matter to 
customize the NETWRKIF.ASM file for any CP/NET server 
running MP/M. There are several areas of the NETWRKIF.ASM 
that require modification. They are the network interface 
process descriptors and their associated queues and 
buffers; the server configuration table, containing storage 
for the requester support process descriptors and stack; 
the mail box data structures that specify the number of 
pieces of mail, the mail size, and buffer area; the 
watchdog timer process, in particular the table specifying 
the flag that is to be set at a timeout; and the local data 
segment that contains several tables used to drive the 
requester interfaces. 

3) Modify the NETWRKIF.ASM file and produce the NETWRKIF.RSP 
file: 
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• The Network interface process descriptors and their associated 
queues and buffers: 

The sample NETWRKIF.ASM contains support for 4 requesters. 
This number can be modified by making the changes in this 
section of the file as follows. Duplicate the following data 
structures for each additional requester: 

NtwrkIPl = Process descriptor, link points to the 

next requester process descriptor. 

NtwrkISl = Stack area, return address is init. 

QCBNtwrkQIl = QCB for network queue input. 

UQCBNtwrkQIl = User QCB for network queue input. 

BufferQUAddr = Buffer address for queue input. 

QCBNtwrkQOl = QCB for network queue output. 

UQCBNtwrkQOl = User QCB for network queue output. 

BufferQOlAddr = Buffer address for queue output. 

BufferQl = Buffer. 

• The server configuration table must indicate the number of 
requesters supported, and it must contain space for each 
requester support process descriptor and stack. 

The default password is PASSWORD and is contained in the 
configuration table. This default is also generated by the 
LOGIN program. 

• The Mail Box data structures are set up for a maximum of 4 
requesters, with 4 pieces of mail each 128 bytes in length. 
Any of these parameters can be easily modified. 

• The Watchdog timer process might require both code and table 
changes. The watchdog table specifies a flag to be set in the 
event of a timeout while waiting for character input from the 
network. This flag number must correspond to the flag on which 
the XIOS character input routine is waiting. Polled I/O 
operation for the server network interface is not recommended. 

It is assumed in the NETWRK IF that a 16ms tick has been 
implemented in the MP/M XIOS. Ticks at different rates affect 
the timeout period. The omission of ticks from an MP/M XIOS 
does not allow CP/NET to execute. 

• The Local data segment contains tables for BinaryASCII, 
delaycounts, and chariotbl. Each of these tables must be 
expanded to accommodate the specific number of requesters. 

The most critical table is chariotbl. This table establishes 
the relationship between the requesters and the console device 
number in the MP/M console XIOS. The NETWRKIF module uses 
direct XIOS console calls for I/O to the physical requester 
interface. This is the way simple portability was achieved. 
If the 8-bit mode is used, the XIOS character handler must not 
mask the high-order bit, normally parity. 
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4) Prepare the NETWRKIF.RSP file as shown below: 

A>RMAC NETWRKIF 
A>LINK NETWRKIF[NR,OR] 

The linker generates the NETWRKIF.RSP file. 

If RMAC and LINK are not available, then you must use ASM, 
PIP, and GENMOD as shown below: 

A>ASM NETWRKIF 

;assemble with ORG 0000H 
A>REN NTWRKO.HEX=NETWRKIF.HEX 

;edit NETWRKIF.ASM ORG statement 
A>ASM NETWRKIF 

;assemble with ORG 0100H 
A>REN NTWRK1.HEX=NETWRKIF.HEX 
A>PIP NETWRKIF.HEX=NTWRKO.HEX,NTWRK1.HEX 
;concatenate the HEX files 
A>GENMOD NETWRKIF.HEX NETWRKIF.RSP 
;generate the NETWRKIF RSP file 

5) Copy the following files to the server. 

SLVSP.RSP = Slave Support Process 
BROADCST.PRL = Broadcast mail 
MRCVMAIL.PRL = Master receive mail 
MSNDMAIL.PRL = Master send mail 

NETWRKIF.RSP = Custom Network Interface Process 

6) Perform a GENSYS on the MP/M system. The GENSYS must 
include the SLVSP.RSP file, the customized NETWRKIF.RSP, 
and can include the SPOOL.RSP. 

When GENSYS asks for the number of consoles, do not include 
the consoles (character I/O drivers) that support the 
requesters. Generally, the response is 1. 

7) Before beginning to debug CP/NET, verify that data can be 
sent and received between the server and the requester. 
Check to see that all 8 bits are transmitted and received 
if configured for 8-bit operation. 

The sample NETWRKIF contains a debug conditional assembly 
flag that permits generation of a NETWRKIF.COM file. The 
NETWRKIF.COM version can debug a single requester as 
follows: 
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• Perform a GENSYS in which the SLVSP.RSP is included but not a 
NETWRKIF.RSP. During the GENSYS, do not specify bank switched 
memory. 

• Execute the MPM.SYS produced from GENSYS and load the 
NETWRKIF.COM file with DDT . 

• Use DDT to debug the NETWRKIF process. This works only for a 
single requester. 


There is, of course, much more that could be written about 
debugging CP/NET. However, NETWRKIF.ASM and SNIOS.ASM provide a 
very simple vehicle for porting CP/NET to other hardware. It has 
been our experience that porting CP/NET can require changes to as 
little as 50-100 lines of code. 

The most challenging aspects of debugging CP/NET occur when 
extending beyond a simple portable version of the NETWRKIF and SNIOS 
to more elaborate protocols and physical methods of connecting a 
network. In fact, the first recommended change is to replace the 
character I/O interface used by the sample NETWRKIF with code that 
buffers an entire network logical message at the interrupt level and 
then sets a flag only when the entire message is received. This 
technique significantly improves performance because only one 
dispatch is produced per message rather than one per byte of the 
received message. 


End of Section 4 
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Appendix A 

CP/NET 1.1 Standard Message Formats 


-- . .. — + 


FMT 

DID 

SID 

FNC 

SIZ 

MSG 

+- H 





^ -• • •-h 


FMT = Message format code 

DID = Message destination processor ID 

SID = Message source processor ID 

FNC = MP/M function code 

SIZ = Data field length - 1 

MSG = Actual message, SIZ + 1 bytes long 


Message Field Length Table 


FMT 








CODE 

FMT 

DID 

SID 

FNC 

1 SIZ 

MSG 

Comment 

00 

1 

1 

1 

1 

1 

1-256 

Preferred format 

01 

1 

1 

1 

1 

1 

1-256 

Returned result 


02 

1 

1 

1 

1 

2 

1-65536 


03 

1 

1 

1 

1 

2 

1-65536 

Returned result 

04 

1 

2 

2 

1 

1 

1-256 


05 

1 

2 

2 

1 

1 

1-256 

Returned result 


h -1-1-1-1-1-1-1-f. 


06 

i 

2 

2 

1 

2 

1-65536 


07 

i 

2 

2 

1 

2 

1-65536 

Returned result 

i i i i i i 

i i 1 
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Appendix B 

Recommended Server-Requester Handshake for RS-232C 


Source Destination Comment 

5 - ENQ -> 

< - ACK - 6 

1 - SOH -> 

FMT -> 

DID -- 

SID -> 

PNC -> 

SIZ -> 

HCS -> Modulo 256 sum from 

SOH to HCS = 0 

< - ACK - 6 

2 - STX -> 

DBO -> First data byte 

DBn -> 

3 - ETX -> 

CKS -> Modulo 256 sum from 

4 - EOT -> STX to CKS = 0 

< - ACK - 6 


) 
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Appendix C 

Recommended RS-232C 8-bit Network Protocol 


+—+—+—+—+—+—+—+—+—+—+- _+—+— + — + 

|ENQ|SOH|FMT|DID|SID|FNC|SIZ|HCS|STX|MSG| :::: ETX CKS EOT I 

“ “ *4“ “ “ “• — — <— -J- — — —• >|- » _i .j. _ _ _ ^ _ a. — — — — — ^ ^ ^ ^ ^ ^ ^ 


Message format codes 00 & 01 are recommended. 

Field Description: 

ENQ = Enquire, one byte, 05H 

SOH = Start of Header, one byte, 01H 

FMT,DID,SID,FNC,SIZ = as defined in Appendix A, one byte 

per field 

HCS = Header Checksum,one byte. This is a simple horizontal 
checksum. It is computed by adding together all the 

bytes of the message starting with the SOH to the 

SIZ byte of the header field modulo 256,complementing 
the result and adding one. Thus, adding together the 
entire message from the SOH to and including the HCS 
should give a total of zero. 

STX = Start of Data, one byte, 02H 

MSG = SIZ + 1 bytes long 

ETX = End of Data, one byte, 03H 

CKS = Checksum, one byte. This is a simple horizontal 
checksum. It is computed by adding together all the 

bytes of the message starting with the STX to the 

last byte of the MSG field modulo 256, complementing 
the result and adding one. Thus, adding together the 
entire message from the STX to and including the CKS 
should give a total of zero. 

EOT = End of Transmission, one byte, 04H 
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Appendix D 

Recommended RS-232C 7-bit ASCII Network Protocol 


Note: The 7-bit ASCII network protocol is identical to the 
8-bit protocol with the exception that it requires 
twice as many bytes because each byte is transmitted 
in hexadecimal ASCII format. 


t + +“ : “+- : “+“:-+~:-+-:-+-:-+-+-:-+- -+-+-:-+-+ 

|ENQ|SOH|FMT|DID|SID|FNC|SIZ|HCS|STX|MSG| :::: |ETX|CKS|EOT| 

+ + +“:-+-:-+-:-+-:-+-:-+-:-+-+-:-+- -+-+_._+-+ 

• / 

two byte field specification 
Message format codes 00 & 01 are recommended. 

Field Description: 

ENQ = Enquire, one byte, 05H 

SOH = Start of Header, one byte, 01H 

FMT,DID,SID,FNC,SIZ = as defined in Appendix A, two bytes 

per field 

HCS = Header Checksum,2 bytes (Hex-ASCII). This is a simple 
horizontal checksum. It is computed by adding 
together all the bytes of the message starting with 
the SOH to the SIZ of the header field modulo 256, 
complementing the result and adding one. Thus, 
adding together the entire message from the SOH to 
and including the HCS should give a total of zero. 

STX = Start of Data, one byte, 02H 

MSG = 2 * (SIZ + 1) bytes long 

ETX = End of Data, one byte, 03H 

CKS = Checksum, two bytes (Hex-ASCII). This is a simple 
horizontal checksum. It is computed by adding 
together all the bytes of the message starting with 
the FMT to the last byte of the MSG field modulo 256, 
complementing the result and adding one. Thus, 
adding together the entire message from the FMT to 
and including the CKS should give a total of zero. 

EOT = End of Transmission, one byte, 04H 
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Appendix E 

CP/NET 1.1 Logical Message Specification 

Notes: ss = Server ID 

rr = Requestor ID 
xx = Don't care byte 
nn = Value specified 

All numeric values are in Hexadecimal. 


FMT DID SID FNC SIZ MSG / Function Name 








00 

ss 

rr 

00 

00 

SYSTEM RESET: 

* NOT IMPLEMENTED AT SERVER 
00-00 = xx 

* 

01 

rr 

ss 

00 

00 

00-00 = 00 









00 

SS 

rr 

01 

00 

CONSOLE INPUT: 

* NOT IMPLEMENTED AT SERVER 
00-00 = xx 

* 

01 

rr 

ss 

01 

00 

00-00 = 00 


00 

ss 

rr 

02 

00 

CONSOLE OUTPUT: 

* NOT IMPLEMENTED AT SERVER 
00-00 = xx 

* 

01 

rr 

ss 

02 

00 

00-00 = 00 







RAW CONSOLE INPUT: 


00 

ss 

rr 

03 

00 

00-00 = Server Console # 


01 

rr 

ss 

03 

00 

00-00 = Character Input 







RAW CONSOLE OUTPUT: 


00 

ss 

rr 

04 

01 

00-00 = Server Console # 

01-01 = Character to Output 


01 

rr 

ss 

04 

00 

00-00 = 00 
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E Logical Message Specification 


FMT 

DID 

SID 

FNC 

SIZ 

MSG / Function Name 






LIST OUTPUT: 

00 

ss 

rr 

05 

nn 

00-00 = Server List # 

01-nn = Characters to List Device 
(nn = 01 to 80) 

01 

rr 

ss 

05 

00 

00-00 = 00 

00 

ss 

rr 

06 

00 

DIRECT CONSOLE I/O: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

06 

00 

00-00 = 00 

00 

ss 

rr 

07 

00 

GET I/O BYTE: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

07 

00 

00-00 = 00 

00 

ss 

rr 

08 

00 

SET I/O BYTE: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

08 

00 

00-00 = 00 

00 

ss 

rr 

09 

00 

PRINT STRING: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

09 

00 

00-00 = 00 

00 

ss 

rr 

0A 

00 

READ CONSOLE BUFFER: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

0A 

00 

00-00 = 00 






GET CONSOLE STATUS: 

00 

ss 

rr 

0B 

00 

00-00 = Server Console # 

01 

rr 

ss 

0B 

00 

00-00 = Console Status Byte 
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FMT 

DID 

SID 

FNC 

SIZ 

MSG / Function Name 

00 

ss 

rr 

OC 

00 

RETURN VERSION NUMBER: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

OC 

00 

00-00 = 00 

00 

ss 

rr 

0D 

00 

RESET DISK SYSTEM: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

0D 

00 

00-00 = 00 






SELECT DISK: 

00 

ss 

rr 

0E 

00 

00-00 = Selected Disk 

01 

rr 

ss 

0E 

00 

00-00 = Return Code 






OPEN FILE: 

00 

ss 

rr 

OF 

0D 

00-00 = User Number 

01-01 = Drive Code 

02-09 = File Name 

0A-0C = File Type 

0D-0D = Extent Number 

01 

rr 

ss 

OF 

03 

00-01 = FCB Address in Server 

02-02 = Record Count 

03-03 = Directory Code 






CLOSE FILE: 

00 

ss 

rr 

10 

02 

00-00 = User Number 

01-02 = FCB Address in Server 

01 

rr 

ss 

10 

00 

00-00 = Directory Code 
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FMT DID SID FNC SIZ MSG / Function Name 


00 


ss 


rr 


11 


OF 


01 


rr 


ss 


11 


20 


SEARCH FOR FIRST: 

00-00 = User Number 
01-01 = Drive Code 
02-09 = File Name 
0A-0C = File Type 
0D-0D = Extent Number 
0E-0E = SI (not used) 

0F-0F = S2 

00-00 = Directory Code 
01-20 = Directory FCB Entry 


00 

01 


ss 

rr 


rr 

ss 


12 

12 


00 

20 


SEARCH FOR NEXT: 

00-00 = xx 

00-00 = Directory Code 
01-20 = Directory FCB Entry 


00 


ss 


rr 


13 


0D 


01 


rr 


ss 


13 


00 


DELETE FILE: 

00-00 = User Number 
01-01 = Drive Code 
02-09 = File Name 
0A-0C = File Type 
0D-0D = Extent Number 

00-00 = Directory Code 


00 


ss 


rr 


14 


05 


01 


rr 


ss 


14 


83 


READ SEQUENTIAL: 

00-00 = User Number 

01-02 = FCB Address in Server 

03-03 = Extent Number 

04-04 = Record Count 

05-05 = Current Record 

00-00 = Extent Number 
01-01 = Record Count 
02-02 = Current Record 
03-82 = Sector of Data Read 
83-83 = Return Code 
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FMT DID SID FNC SIZ MSG / Function Name 


00 


ss 


rr 


15 


85 


01 


rr 


ss 


15 


03 


WRITE SEQUENTIAL: 

00-00 = User Number 

01-02 = FCB Address in Server 

03-03 = Extent Number 

04-04 = Record Count 

05-05 = Current Record 

06-85 = Sector of Data to Write 

00-00 = Extent Number 
01-01 = Record Count 
02-02 = Current Record 
03-03 = Return Code 


00 


ss 


rr 


16 


0D 


01 


rr 


ss 


16 


03 


MAKE FILE: 

00-00 = User Number 
01-01 = Drive Code 
02-09 = File Name 
0A-0C = File Type 
0D-0D = Extent Number 

00-01 = FCB Address in Server 
02-02 = Record Count 
03-03 = Directory Code 


00 


ss 


rr 


17 


20 


01 


rr 


ss 


17 


00 


RENAME FILE: 

00-00 = User Number 
01-01 = Drive Code 
02-09 = File Name 
0A-0C = File Type 
0D-0D = Extent Number 
0E-0E = SI (not used) 

0F-0F = S2 (not used) 

10- 10 = Record Count (not used) 

11- 11 = Drive Code 

12- 19 = File Name 
1A-1C = File Type 
ID-ID = Extent Number 
IE-IE = SI (not used) 

1F-1F = S2 (not used) 

20-20 = Record Count (not used) 

00-00 = Directory Code 
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FMT 

DID 

SID 

FNC 

SIZ 

MSG / Function Name 

00 

ss 

rr 

18 

00 

RETURN LOGIN VECTOR: 

00-00 = xx 

01 

rr 

ss 

18 

01 

00-01 = Login Vector 

00 

ss 

rr 

19 

00 

RETURN CURRENT DISK: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

19 

00 

00-00 = 00 

00 

ss 

rr 

1A 

00 

SET DMA ADDRESS: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

1A 

00 

00-00 = 00 

00 

ss 

rr 

IB 

00 

GET ALLOCATION VECTOR ADDRESS: 

00-00 = Current Drive 

01 

rr 

ss 

IB 

FF 

00-FF = Allocation Vector 

00 

ss 

rr 

1C 

00 

WRITE PROTECT DISK: 

00-00 = Current Drive 

01 

rr 

ss 

1C 

00 

00-00 = 00 

00 

ss 

rr 

ID 

00 

GET R/O VECTOR: 

00-00 = xx 

01 

rr 

ss 

ID 

01 

00-01 = R/O Vector 
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FMT DID SID FNC SIZ MSG / Function Name 













SET FILE ATTRIBUTES: 

00 

ss 

rr 

IE 

0D 

00-00 = User Number 

01-01 = Drive Code 

02-09 = File Name 

0A-0C = File Type 

0D-0D = Extent Number 

01 

rr 

ss 

IE 

00 

00-00 = Directory Code 






GET DISK PARAMETER ADDRESS: 

00 

SS 

rr 

IF 

00 

00-00 = Current Drive 

01 

rr 

ss 

IF 

OF 

00-0F = Disk Parameter Block 

00 

ss 

rr 

20 

00 

SET/GET USER CODE: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = Set/Get Code 

01 

rr 

ss 

20 

00 

00-00 = Current Code (if Get) 






READ RANDOM: 

00 

ss 

rr 

21 

05 

00-00 = User Number 

01-02 = FCB Address in Server 

03-05 = R0,R1,R2 Random Record # 

01 

rr 

ss 

21 

83 

00-00 = Extent Number 

01-01 = Record Count 

02-02 = Current Record 

03-82 = Sector of Data Read 

83-83 = Return Code 






WRITE RANDOM: 

00 

ss 

rr 

22 

85 

00-00 = User Number 

01-02 = FCB Address in Server 

03-82 = Sector of Data to Write 

83-85 - R0,R1,R2 Random Record # 

01 

rr 

ss 

22 

03 

00-00 = Extent Number 

01-01 = Record Count 

02-02 = Current Record 

03-03 = Return Code 
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FMT 

DID 

SID 

FNC 

SIZ 

MSG / Function Name 






COMPUTE FILE SIZE: 


00 

ss 

rr 

23 

0D 

00-00 = User Number 

01-01 = Drive Code 

02-09 = File Name 

0A-0C = File Type 

0D-0D = Extent Number 


01 

rr 

ss 

23 

03 

00-02 = R0,R1,R2 Random Record 
03-03 = Return Code 

# 






SET RANDOM RECORD: 


00 

ss 

rr 

24 

05 

00-00 = User Number 

01-02 = FCB Address in Server 
03-03 = Extent Number 

04-04 = Record Count 

05-05 = Current Record 


01 

rr 

ss 

24 

03 

00-02 = R0,R1,R2 Random Record 
03-03 = 00 

# 






RESET DRIVE: 


00 

ss 

rr 

25 

01 

00-01 = Drive Vector 


01 

rr 

ss 

25 

00 

00-00 = Return Code 







ACCESS DRIVE: 


00 

ss 

rr 

26 

01 

00-01 = Drive Vector 


01 

rr 

ss 

26 

00 

00-00 = 00 







FREE DRIVE: 


00 

ss 

rr 

27 

01 

00-01 = Drive Vector 


01 

rr 

ss 

27 

00 

00-00 = 00 
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FMT 

DID 

SID 

FNC 

SIZ 

MSG / Function Name 

00 

ss 

rr 

28 

85 

WRITE RANDOM WITH ZERO FILL: 

00-00 = User Number 

01 

rr 

ss 

28 

03 

01-02 = FCB Address in Server 

03-82 = Sector of Data to Write 

83-85 = R0,R1,R2 Random Record # 

00-00 = Extent Number 




01-01 = Record Count 

02-02 = Current Record 

03-03 = Return Code 
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CP/NET 1.1 FUNCTIONS 


FMT 

DID 

SID 

FNC 

SIZ 

MSG / Function Name 






LOGIN: 

00 

ss 

rr 

40 

07 

00-07 = Password, 8 ASCII Chars 

01 

rr 

ss 

40 

00 

00-00 = Return Code 






LOGOFF: 

00 

ss 

rr 

41 

op 

00-00 = xx 

01 

rr 

ss 

41 

00 

00-00 = Return Code 






SEND MESSAGE ON NETWORK: 

00 

ss 

rr 

42 

nn 

00-00 = Message Destination ID 

01-nn = Message 

01 

rr 

ss 

42 

00 

00-00 = Return Code 






RECEIVE MESSAGE FROM NETWORK: 

00 

ss 

rr 

43 

00 

00-00 = xx 

01 

rr 

ss 

43 

nn 

00-00 = Message Source ID 

01-nn = Message 

00 

ss 

rr 

44 

00 

GET NETWORK STATUS: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

44 

00 

00-00 = 00 

00 

ss 

rr 

45 

00 

GET CONFIGURATION TABLE ADDRESS: 

* NOT IMPLEMENTED AT SERVER * 

00-00 = xx 

01 

rr 

ss 

45 

00 

00-00 = 00 
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Appendix F 

NDOS Function Summary 


FUNC FUNCTION NAME 

INPUT PARAMETERS 

OUTPUT RESULTS 

64 

Login 

see def 


A = Err Code 

65 

Logoff 

see def 


none 

66 

Send Message on Ntwrk 

DE = Message 

Adr 

A = Err Code 

67 

Receive Msg from Ntwk 

DE = Message 

Adr 

A = Err Code 

68 

Get Network Status 

none 


A = Status byte 

69 

Get Config Table Adr 

none 


HL= Table Adr 
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108 


rcvBsgerrssgl 



109 

110 
111 
112 

0038 496C6C6567 db 

0050 24 db 

rcvBSQfailedBsg 

'Illegal RCVMAIL coBBand,' 

♦ 

113 

114 

115 

116 

0051 4D61696C62 db 

007A 24 db 

HexASCIItbl! 

'Mailbox eipty or not logged in to »aster.' 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

007B 3031323334 db '0123456789ABCDEF' 

end if 

page 

BSEG 

( Slave Configuration Table 

configtbl! 

NetworkSstatus! 

129 

0000 

ds 

1 

1 network status byte 

130 

0001 

ds 

1 

J slave processor IB nuBber 

131 

0002 

ds 

2 

} A! Disk device 

132 

0004 

ds 

0 

; b: * 

133 

0006 

ds 

2 

} Cl * 

134 

0008 

ds 

2 

; in ■ 

135 

000A 

ds 

2 

1 El * 

136 

oooc 

ds 

2 

1 FI 1 

137 

OOOE 

ds 

2 

; 6i * 

138 

0010 

ds 

2 

1 HI • 

139 

0012 

ds 

2 

; ii * 

140 

0014 

ds 

0 

C. 

; j: • 

141 

0016 

ds 

2 

I K! • 

142 

0018 

ds 

2 

y LI * 

143 

001A 

ds 

2 

; m; * 

144 

001C 

ds 

2 

} Ml 1 

145 

001E 

ds 

2 

; 01 * 

146 

147 

0020 

ds 

2 

! PI * 

148 

149 

0022 

ds 

2 

1 console device 

150 

0024 

ds 

2 

1 list device! 

151 

0026 

ds 

1 

1 buffer index 

152 

0027 00 

db 

0 

; FMT 

153 

0028 00 

db 

0 

1 BIB 

154 

0029 56 

db 

Slave$ID 

{ SID (CP/NOS Bust still 

155 

002A 05 

db 

5 

1 FNC 

156 

002B 

ds 

1 

{ SIZ 

157 

002C 

ds 

1 

y MSG(O) List nuBber 

158 

159 

002D 

ds 

128 

1 HSG(l) MSG(128) 
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160 


»sg4adr5 



161 

00AB 

ds 

2 ; 

■essage address 

162 


if 

■ode* 


163 


ti*eout4retries equ 0 } 

tiseout a *ax of 256 ti*es 

164 


else 



165 

0064 = 

tiieouUretries equ 100 { 

tiieout a *ax of 100 ti*es 

166 


endif 



16? 

OOOA = 

aax4retries equ 

10 ; 

send sessage sax of 10 tiies 

168 


retryicount! 



169 

OOAF 

ds 

1 


170 





171 


Hailasgt 

* 

f 

Hail box »essage area 

172 

OOBO 00 

db 

0 5 

#sg.f»t = 0 

173 

00B1 00 

db 

$-$ ; 

iisg.did 

174 

00B2 00 

db 

4-4 ; 

nsg.sid 

175 

00B3 00 

db 

h ; 

■sg.fnc 

176 

00B4 00 

db 

4-4 { 

■sg.siz 

17? 

00B5 

ds 

256 i 

iisg,»sg(0) ... »sg,»sg<255) 

178 





179 


FirstPassJ 



180 

01B5 FF 

db 

Offh 


181 





182 


| Network 

Status Byte Equates 

183 


t 

J 



184 

0010 = 

active 

equ 000i$0000b i slave logged in on network 

185 

0002 = 

rcverr 

equ 000040010b I error in received *essaqe 

186 

0001 = 

senderr 

equ 000040001b I unable to send *essage 

187 





188 


} General 

Equates 


189 


* 

1 



190 

0001 = 

S0H equ 

Olh S 

; Start of Header 

191 

0002 = 

8TX equ 

02h 

Start of Data 

192 

0003 = 

ETX equ 

03h 

End of Data 

193 

0004 = 

EOT equ 

04h 

End of Transaission 

194 

0005 = 

ENQ equ 

05h 

Enquire 

195 

0006 = 

ACK equ 

06h 

Acknowledge 

196 

O00A = 

LF equ 

Oah 

Line Feed 

197 

000D = 

CR equ 

Odh 

Carriage Return 

198 

0015 = 

NAK equ 

15h 

Negative Acknowledge 

199 





200 

0002 = 

conout equ 

2 : 

\ console output function 

201 

0009 = 

print equ 

? 

I print string function 

202 

0043 = 

rcvasg equ 

67 

} receive aessage ND0S function 

203 

0040 = 

login equ 

64 ! 

! Login NB0S function 

204 





205 


| 1/0 Equates 


206 


■ 

f 



207 


if 

DB82 


208 


stati equ 

83h 


209 


■ski equ 

08h 


210 


dprti equ 

80h 


211 
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212 


stato 

equ 

83h 

213 


asko 

equ 

lOh 

214 


state 

equ 

81h 

215 


askc 

equ 

20h 

216 


dprto 

equ 

86h 

217 



endif 


218 





21? 



if 

DSC2 

220 



if 

aodea 

221 


stati 

equ 

5?h 

222 


*sKi 

equ 

02h 

TO 


dprti 

equ 

58h 

224 





225 


stato 

equ 

5?h 

226 


asko 

equ 

Olh 

227 


dprto 

equ 

58h 

228 



else 


22? 


stati 

equ 

51h 

230 


aski 

equ 

02h 

231 


dprti 

equ 

50h 

232 





233 


stato 

equ 

51h 

234 


asko 

equ 

Olh 

235 


dprto 

equ 

50h 

236 



endif 


237 



endif 


238 





23? 



if 

Altos 

240 

001F = 

stati 

equ 

lfh 

241 

0001 = 

aski 

equ 

Olh 

242 

001E = 

dprti 

equ 

leh 

243 




244 

001F = 

stato 

equ 

lfh 

245 

0004 = 

asko 

equ 

04h 

246 

001E = 

dprto 

equ 

leh 

247 



endif 


248 





24? 





250 





251 



page 
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252 




253 


CSEG 


254 


i Utility Procedures 

255 


* 

f 


256 


delay! 


257 

008B 3E06 

mvi 

a»6 

258 


delay1! 


259 

008B 0E86 

mvi 

c,86h 

260 


delay25 


261 

008F 0D 

dcr 

c 

262 

0090 C28F00 

jnz 

delay2 

263 

0093 3D 

dcr 

a 

264 

0094 C28D00 

jnz 

delay! 

265 

0097 C9 

ret 


266 




267 


if 

ASCII 

268 


Nib$outt 


269 


cpi 

10 

270 


jnc 

nibAtoF 

271 


adi 

'O' 

272 


mov 

c f a 

273 


jsp 

Chariout 

274 


nibAtoFt 


275 


adi 

'A'-10 

276 


mov 

CrO 

277 


•J»P 

Chartout 

278 


endif 


279 




280 


Pre$Char$out; 


281 

0098 7A 

mov 

•i»d 

282 

0099 81 

add 

c 

283 

009A 57 

mov 

d.a 

284 




285 


nChartout! 


286 


if 

Altos 

287 

009B 3E10 

mvi 

a,10h 

288 

009B D31F 

out 

stato 

289 


endif 


290 

009F DB1F 

in 

stato 

291 

OOA1 E604 

am 

msKo 

292 

00A3 CA9B00 

jz 

nChartout 

293 




294 


if 

DB82 

295 


in 

state 

296 


ani 

msKc 

297 


jz 

nChar$out 

298 


endif 


299 





G Slave Network I/O System 


; delay for ctal I 0.5 milliseconds 


} A = nibble to be transmitted in ASCII 
| jump if A-F 


| update the checksum in D 
} C = byte to be transmitted 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 


title 'Slave Network I/O System for CP/NET 1.1' 
page 60 

mmmmmmmmmmmmmmmmmmmmm 
nmnmnmmmmmmmnmmmmtmmmmm 
** #* 

** Slave Network I/O System U 

tt ft 

nmtmmmmmmmmmmmmmmnmmmmt 

mmmmmmmmmmmmnmmmmmmtmm 


12 


?/* 


13 


} Copyright (C) 1980, 1981, 

14 


} Digital Research 

15 


{ P.0. Box 579 

16 


i Pacific Grove, CA 93950 

17 


* 

f 


18 


i Revised! April 24, 1982 

19 


»*/ 


20 

21 

0000 = 

false equ 

0 

22 

FFFF = 

true equ 

not false 

23 




24 

0000 = 

cpnos equ 

false 

25 




26 

0000 = 

DSC2 equ 

false 

27 

0000 = 

DB82 equ 

false 

28 

FFFF = 

Altos equ 

true 

29 




30 

FFFF = 

alwaysfretry 

equ true 

31 




32 

0000 = 

modem equ 

false 

33 




34 

0000 = 

ASCII equ 

false 

35 




36 

0000 = 

debug equ 

false 

37 




38 


CSEG 


39 


if 

cpnos 

40 


extrn 

BUGS 

41 


else 


42 

0005 = 

6D0S equ 

0005h 

43 


endif 


44 




45 


nios: 


46 


public 

NIOS 

47 


» Jump vector for SNI0S 

48 

0000 C30501 

Jmp 

ntwrkinit 

49 

0003 C31401 


ntwrksts 

50 

0006 C31F01 

jffip 

cnfgtbladr 

51 

0009 C32301 

j®p 

sendmsq 


; cp/net system 


} force continuous retries 


1 network initialization 
} network status 
{ return confiq table addr 
! send message on network 
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52 

0O0C C38F01 

•imp 

receivemsg } 

receive message from network 

53 

000F C33902 

J»p 

ntwrkerror } 

network error 

54 

0012 C33A02 

J*P 

ntwrkwboot | 

network warm boot 

55 





56 


if 

DB82 


57 


slaveilB 

equ 12h 1 

slave processor IB number 

58 


endif 



59 


if 

BSC2 


60 


slaveilB 

equ 34h 


61 


endif 



62 


if 

Altos 


63 

0056 = 

slaveilB 

equ 56h 


64 


endif 



65 





66 


if 

cpnos 


67 


r Initial 

Slave Configuration Table 

68 


InitconfigtblJ 



69 


db 

OOOOiOOOOb 

network status byte 

70 


db 

slaveilB 

slave processor IB number 

71 


db 

34h,0 

AI Bisk device 

72 


db 

81h,0 

Bl • 

73 


db 

82h,0 

Cl • 

74 


db 

83M 

Bl ’ 

75 


db 

80h,0 

El ’ 

76 


db 

85h,0 

FI ’ 

77 


db 

86H.0 

51 1 

78 


db 

87h,0 

HI 1 

79 


db 

88h,0 

15 * 

80 


db 

3?h,0 

Jl * 

81 


db 

8ah,0 

K1 * 

82 


db 

8bh|0 

LI 1 

83 


db 

3ch,0 

Ml ’ 

84 


db 

8dh.O 

N5 * 

85 


db 

3eh,0 

01 * 

86 


db 

8fh,0 

p; * 

87 


db 

0,0 

console device 

88 


db 

0,0 

list device! 

89 


db 

0 

buffer index 

90 


db 

0 

FHT 

91 


db 

0 

BID 

92 


db 

slaveilB 

SIB 

93 


db 

5 

FNC 


94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 


0000 = 


initcfglen equ 
endif 

if 

defaultmaster 


t-initconfigtbl 


wbootimsql 
0015 3C5761726D db 
0020 24 db 


not cpnos 
equ OOh 


'<Uor* Boot)-' 


J see ntwrkwboot routine for why this 
} won't qo in cp/nos 

1 doto for worm boot routine 


0021 4E6574776F 
0037 24 


networkerrmsgi 
db 
db 


'Network access failed.' 
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300 


if 

BSC2 


301 


nop 


{ these NOP's take DB8/2 i DSC2 

302 


nop 


{ versions the sane length - saves 

303 


nop 


{ a second listing 

304 


nop 


305 


nop 



306 


nop 



307 


nop 



308 


endif 



309 





310 

0006 79 

»ov 

a?c 


311 

0007 D31E 

out 

dprto 


312 

0009 C9 

ret 



313 


» 



314 


ChorloutJ 



315 

0000 CD9800 

call 

nChartout 


316 


if 

Oltos 


317 

000D E3E3E3E3 

xthl! 

xthl! xthl! xthl 


318 

00B1 E3E3E3E3 

xthl! xthl! xthl! xthl 


319 

OOB5 E3E3E3E3 

xthl! 

xthl! xthl! xthl 

{delay 54 usee 

320 

OOB9 C9 

ret 



321 


else 



322 


j»p 

delay 

{ delay after each Char sent to Mstr 

323 


i ret 



324 


endif 



325 





326 


if 

0SCII 


327 


Nibtini 


{ return nibble in 0 register 

328 


call 

CharJin 


329 


rc 



330 


ani 

7fh 


331 


sui 

'O' 


332 


cpi 

10 


333 


jc 

Nib$in$rtn 

; kust be 0-9 

334 


adi 

('O'-'O'+IO) and Offh 

335 


cpi 

16 


336 


jc 

Nib$in$rtn 

{ Bust be 10-15 

337 


Ida 

networkistatus 


338 


ori 

rcverr 


339 


sta 

networktstatus 


340 


»vi 

a»0 


341 


stc 


r carry set indicating err cond 

342 


ret 



343 





344 


Nib$in$rtn5 



345 


ora 

a 

{ clear carry i return 

346 


ret 



347 


endif 



348 





349 


xChartinl 



350 

OOBO 0664 

svi 

b T 100 

{ 100 bs corresponds to longest possible 

351 

00BC C3C100 

j»P 

chartinO 

{wait between master operations 
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352 




} return byte in A register 

353 


Chartint 


354 




1 carry set on rtn if tineout 

355 


if 

noden 


356 


nvi 

M 

{ 256 ns =7.76 chars @ 300 baud 

357 


else 



358 


if 

Altos 


35? 

00BF 0603 

nvi 

b,3 

; 3 ns = 50 chars 0 125K baud 

360 


else 



361 


DlVi 

b,50 

} 50 ns = 50 chars 0 9600 baud 

362 


end if 



363 


end if 



364 


ChartinOl 



365 

00C1 0E5A 

nvi 

c»5ah 


366 


Chartinlt 



367 


if 

Altos 


368 

OOC3 3E00 

nvi 

a,0 


369 

OOC5 B31F 

out 

stati 


370 


endif 



371 

00C7 DB1F 

in 

stati 


372 

00C9 E601 

ani 

nsKi 


373 

00CB C2B800 

jnz 

Chartin2 


374 

00CE on 

dcr 

c 


375 

00CF C2C300 

jnz 

Chartinl 


376 

OOB2 05 

dcr 

b 


377 

00D3 C2C100 

jnz 

ChartinO 


378 

00B6 37 

stc 


} carry set for err cond = tineout 

37? 

0007 C9 

ret 



380 


Char$in21 



381 

0008 DB1E 

in 

dprti 


382 

00DA C9 

ret 


\ rtn with raw char and carry cleared 

383 





384 


Nettouti 


} C = byte to be transnitted 

385 




{ 0 = checKsun 

386 

00DB 7A 

nov 

a t d 


387 

00DC 81 

add 

c 


388 

00H0 57 

nov 

d f a 


38? 





390 


if 

ASCII 


391 


nov 

a,c 


392 


nov 

b»a 


393 


rar 



394 


rar 



395 


rar 



396 


rar 



397 


ani 

0FH 

; nasK HI-L0 nibble to L0 nibble 

398 


call 

Nibtout 


39? 


nov 

a r b 


400 


ani 

0FH 


401 


J»p 

Nibtout 


402 





403 


else 



404 

OOOE C3AAOO 

■J»P 

Chartout 


405 


endif 
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m 


407 


Hsg$in t 


? HL = destination address 

408 




i E = ♦ bytes to input 

409 

O0E1 CHEC00 

call 

Net$in 

410 

00E4 D8 

rc 



411 

00E5 77 

iOV 

»>a 


412 

00E4 23 

inx 

h 


413 

OOE7 ID 

dcr 

e 


414 

00E8 C2E100 

■jnz 

Nsgtin 


415 

00EB C9 

ret 


414 





417 


NettinJ 


{ byte returned in A register 

418 




1 D = checksun accuBulator 

419 





420 


if 

ASCII 


421 


call 

Nib$in 


422 


rc 



423 


add 

a 


424 


add 

a 


425 


add 

a 


424 


add 

a 


427 


push 

psw 


428 


call 

Nibtin 


429 


pop 

b 


430 


rc 



431 


ora 

b 


432 





433 


else 



434 

00EC CDBF00 

call 

Chariin 

{receive byte in Binary Bode 

435 

00EF D3 

rc 



434 


endif 



437 





438 


chksiinl 



439 

00F0 47 

MV 

b»a 


440 

OOFl 32 

add 

d 

{ add X update checksum accu» ( 

441 

OOF2 57 

BOV 

d ? a 

442 

00F3 B7 

ora 

a 

1 set cond code from checksum 

443 

OOF4 78 

BOV 

a,b 


444 

OOFS C9 

ret 




445 
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446 


Msgtout! 


44? 




448 




44? 




450 

00F6 1600 

mvi 

d,0 

451 

OOF8 CD9800 

call 

F'retChartout 

452 


Hsgtouttloop! 


453 

00FB 4E 

mov 

Cfl 

454 

OOFC 23 

inx 

h 

455 

00FB CDBB00 

call 

Nettout 

456 

0100 IB 

dcr 

e 

45? 

0101 C2FB00 

jnz 

Msgtouttloop 

458 

0104 C? 

ret 


45? 




460 


page 


461 




462 


| Network 

Initialization 

463 


ntwrkinit! 


464 




465 


if 

cpnos 

466 


lxi 

h» Initconfigtbl 

467 


lxi 

djconfigtbl 

468 


mvi 

c f initcfglen 

46? 


initloop! 


470 


AOV 

a, n 

471 


stax 

d 

472 


inx 

h 

473 


inx 

d 

474 


dcr 

c 

475 


.jnz 

initloop 

476 




477 


else 


478 

0105 3E56 

mvi 

a f slavetIB 

47? 

0107 320100 

sta 

configtblfl 

480 


end if 


481 




482 


* device initialization* 

483 




484 


if 

Altos 

485 

0106 3E47 

mvi 

a,047h 

486 

010C B30E 

out 

Oeh 

487 

010E 3E01 

mvi 

a,l 

488 

0110 B30E 

out 

Oeh 

48? 


end if 


4?0 




4?1 


if 

BSC2 and modem 

4?2 


mvi 

a t 0ceh 

4?3 


out 

stato 

4?4 


mvi 

a,027h 

4?5 


out 

stato 

4?6 


end i f 



HL = source address 
E = * bytes to output 
B = checksum 
C = prea»ble byte 
initialize the checksum 
send the preamble character 


{ copy down network assignments 


{ initialize config tbl from ROM 

{initialize slave IB byte 
I in the configuration tablee 
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497 




498 


if 

cpnos 

499 


call 

loginpr 1 

500 


endif 


501 




502 


initoK! 


503 

0112 AF 

xra 

a 1 

504 

0113 C9 

ret 

505 




504 




507 


page 


508 




509 


1 Network 

Status 

510 


ntwrkstsl 


511 

0114 3A0000 

Ida 

networktstatus 

512 

0117 47 

nov 

b,a 

513 

0118 E4FC 

ani 

not (rcverrfsenderr) 

514 

011ft 320000 

sta 

networKIstatus 

515 

011D 78 

60V 

a r b 

514 

011E C9 

ret 


517 




518 




519 




520 


f Return Configuration Table Address 

521 


cnfqtbladrl 


522 

011F 210000 

lxi 

hrconfigtbl 

523 

0122 C9 

ret 


524 




525 




524 


page 



login to a master 


return code is 0=success 
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527 





528 


; Send Message on Network 


529 


sendmsgl 


! BC = message addr 

530 

0123 60 

BlOV 

bib 


531 

0124 69 

kOV 

1|C 

| HL = message address 

532 

0125 22ADOO 

sh Id 

msgtadr 


533 


retsendksgl 



534 

0128 3E0A 

mvi 

a f kaxtretries 


535 

012ft 32AF00 

sta 

retrytcount 

1 initialize retry count 

536 


send! 



537 

012D 2AAD00 

lhld 

msqtadr 


538 

0130 0E05 

mvi 

c,ENQ 


539 

0132 CBAA00 

call 

Chartout 

I send ENG to master 

540 

0135 1664 

tvi 

d>timeout$retries 

541 


ENGtresponsel 



542 

0137 CDBF00 

call 

Chart in 


543 

013ft B24401 

•jnc 

gottENGtresponse 

544 

013B 15 

dcr 

d 


545 

013E C23701 

jnz 

ENQtresponse 


546 

0141 C38701 

.j»p 

Chartinttikeout 


547 


got$ENQ$responset 


548 

0144 CB7ft01 

call 

gettACKO 


549 

0147 0E01 

mvi 

CfSOH 


550 

0149 1E05 

mvi 

e,5 


551 

014B CBF600 

call 

fisgtout 

; send S0H FMT BIB SIB FNC SI2 

552 

014E ftF 

xra 

a 


553 

014F 92 

sub 

d 


554 

0150 4F 

KOV 

c»a 


555 

0151 CBBB00 

call 

nettout 

{ send HCS (header checksum) 

556 

0154 CB7401 

call 

gettACK 


557 

0157 2B 

dcx 

h 


558 

0158 5E 

»ov 

e,k 


559 

0159 23 

inx 

h 


560 

015ft 1C 

inr 

e 


561 

015B 0EO2 

mvi 

c t STX 


562 

015B CDF600 

call 

ilsgtout 

{ send STX BB0 BB1 ,,. 

563 

0160 0E03 

mvi 

c»ETX 


564 

0162 CB9800 

call 

PretChartout 

} send ETX 

565 

0165 ftF 

xra 

a 


566 

0166 92 

sub 

d 


567 

0167 4F 

mov 

c?a 


568 

0168 CDBB00 

call 

Nettout 

) send the checksum 

569 

016B 0EO4 

mvi 

CfEOT 


570 

016B CB9B00 

call 

nChartout 

} send EOT 

571 

0170 CB7401 

call 

gettftCK 

? (leave these 

572 

0173 C9 

ret. 


| two instructions) 

573 





574 


geUACK! 



575 

0174 CBBF00 

call 

Chartin 


576 

0177 Bft?F01 

JC 

sendtretry 

\ jump if timeout 

577 


getlACKOJ 



578 

017A E67F 

ani 

7fh 


579 

0170 B606 

SUl 

ftCN 


530 

017E C8 

rz 
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581 


sendtretry! 


582 

017F El 

pop 

h 

583 

0180 21AFOO 

lxi 

h,retrytcount 

584 

0183 35 

dcr 

Hi 

585 

0184 C22D01 

•jns 

send 

586 


Chartinttimeout! 

587 

0187 3E01 

mvi 

a,senderr 

588 




58? 


if 

aluaystretry 

590 

0189 CD2E02 

call 

errortreturn 

591 

018C C32801 

J»lp 

retsendmsg 

592 


else 


593 


■J*P 

errortreturn 

594 


endif 


595 




596 


page 


597 




598 


! Receive Message from f 

59? 


receivemsg! 


600 

018F 60 

mov 

h,b 

601 

0190 6? 

BOV 

lfC 

602 

0191 22A000 

shld 

msqtadr 

603 


retreceivensg! 


604 

0194 3E0A 

mvi 

a jisaxt retries 

605 

0196 32AF00 

sta 

retrytcount 

606 


retcall! 


607 

0199 CHAB01 

call 

receive 

608 




60? 


receivetretry! 


610 

019C 21AF00 

lxi 

h,retrytcount 

611 

019F 35 

dcr 

• 

612 

01A0 C29901 

jnz 

retcatl 

613 


receivetti*eout! 

614 

01A3 3E02 

•VI 

a f rcverr 

615 




616 


if 

aluaystretry 

617 

01A5 CD2E02 

call 

errortreturn 

618 

01A8 C39401 

,jmp 

retreceivemsg 

619 


else 


620 


dtp 

errortreturn 

621 


endif 


622 





r discard return address 


} send again unles max retries 


} BC = message addr 
} HL = iessage address 

I initialise retry count 
1 rtn from receive is receive error 
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623 


receive! 




624 

01AB 2AAB00 

lhld 

msgtadr 



625 

OiftE 1664 

»vi 

djtineouttretries 


626 


receivelf'irstchari 



627 

01B0 CDBA00 

call 

xchorin 



628 

01B3 B2BE01 

jnc 

gottfirstchar 



629 

01B6 15 

dcr 

d 



630 

01B7 C2B001 

jnz 

receivetfirstchar 


631 

01BA El 

pop 

h 

¥ 

t 

discard receivetretry rtn adr 

632 

01BB C3A301 

jap 

receivettiiieout 



633 


qot$firstchort 




634 

01BE E67F 

ani 

7fh 



635 

01C0 FE05 

cpi 

ENQ 

* 

f 

Enquire? 

636 

01C2 C2AB01 

jnz 

receive 



637 






638 

01C5 0E06 

ffivi 

c,ACK 



639 

01C7 CD9B00 

call 

nChartout 

♦ 

f 

acknowledge ENQ with an ACK 

640 






641 

01CA CDBF00 

call 

Chartin 



642 

01CH D8 

rc 


¥ 

return to receivetretry 

643 

01CE E67F 

ani 

7fh 



644 

01B0 FE01 

cpi 

SOH 

¥ 

t 

Start of Header ? 

645 

01D2 CO 

rnz 


¥ 

f 

return to receivetretry 

646 

01B3 57 

ROV 

d,a 

¥ 

J 

initialize the HCS 

647 

01D4 1E05 

•vi 

e,5 



648 

01D6 CUE100 

call 

Msgtin 



649 

01D9 B8 

rc 


¥ 

t 

return to receivetretry 

650 

01DA CBECOO 

call 

Nettin 



651 

01BD D8 

rc 


¥ 

f 

return to receivetretry 

652 

01DE C22902 

jnz 

bodtchecksui* 



653 

01E1 CD2102 

call 

sendtACK 



654 

01E4 CDBF00 

call 

Chartin 



655 

01E7 D8 

rc 


¥ 

f 

return to receivetretry 

656 

01E8 E67F 

ani 

7fh 



657 

01EA FE02 

cpi 

STX 

¥ 

f 

Start of Data ? 

658 

01EC CO 

rnz 


¥ 

f 

return to receivetretry 

659 

01ED 57 

ROV 

dfO 

¥ 

initialize the CKS 

660 

01EE 2B 

dcx 

h 



661 

01EF 5E 

ROV 

e ,Bi 



662 

01F0 23 

inx 

h 



663 

01F1 1C 

inr 

e 



664 

01F2 CDE100 

call 

isgtin 

¥ 

1 

get DBO BB1 » * ♦ 

665 

01F5 D8 

rc 


¥ 

f 

return to receivetretry 

666 

01F6 CBBFOO 

call 

Chart in 

¥ 

f 

qet the ETX 

667 

01F9 D8 

rc 


¥ 

1 

return to receivetretry 

668 

01FA E67F 

ani 

7fh 



669 

01FC FE03 

cpi 

ETX 
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670 

01FE CO 

rnz 


671 

01FF 82 

add 

d 

672 

0200 57 

mov 

d,a 

673 

0201 CDEC00 

call 

Nettin 

674 

0204 D8 

rc 


675 

0205 CDBF00 

call 

Chartin 

676 

0208 D8 

rc 


677 

020? E67F 

ani 

7fh 

678 

0208 FE04 

cpi 

EOT 

67? 

020D CO 

rnz 


680 

020E 7A 

mov 

a r d 

681 

020F B7 

ora 

a 

682 

0210 C22?02 

jnz 

badtchecKsum 

683 

0213 El 

pop 

h 

684 

0214 2AAD00 

lhld 

msgtadr 

685 

0217 23 

inx 

h 

686 

0218 3A0100 

Ida 

configtbl+1 

687 

021B 96 

sub 

m 

688 

021C CA2102 

Jz 

sendtACK 

68? 

021F 3EFF 

mvi 

a,0ffh 

6?0 


sendtACKl 


6?1 

0221 F5 

push 

psw 

6?2 

0222 0E06 

mvi 

CfACK 

6?3 

0224 CB?BO0 

call 

nChartout 

6?4 

0227 FI 

pop 

psw 

6?5 

0228 C? 

ret 


6?6 




6?7 


badtDID! 


6?8 


badtchecksuml 


6?? 

022? 0E15 

mvi 

c,NAK 

700 

022B C3AA00 

jmp 

Chartout 

701 


} ret 


702 




703 


errortreturnl 


704 

022E 210000 

lxi 

h,networktstatus 

705 

0231 86 

ora 

m 

706 

0232 77 

mov 

m f a 

707 

0233 CD3?02 

call 

ntwrkerror 

708 

0236 3EFF 

mvi 

atOffh 

70? 

0238 C? 

ret 


710 




711 


ntwrKerrorl 


712 




713 

023? C? 

ret 


714 




715 


page 



{ return to receivetretry 

} update CKS with ETX 
} get CKS 

} return to receivetretry 
get EOT 

i return to receivetretry 


I return to receivetretry 
! test CKS 

i discard receivetretry rtn adr 


i ,jutp with A=0 if DID oK 
} return code shows bad DID 

» save return code 

! send ACK if checKsu* oK 
» restore return code 


} send NAK on bad chksm l not max retries 


} perform any required device re-init. 


J perform any required device 
> re-initialization 
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716 




717 


» 

f 


718 


ntwrKwboott 


71? 




720 


1 This procedure is called each time the CCP is 

721 


{ reloaded from disk. This version prints *<HARM B00T>* 

•m 

l 


| on the console and then checks for sail at the master* 

723 


1 but anything necessary for restart can be put here. 

724 




725 


if 

not cpnos 

U6 

727 


| NOTE! 

The following code will not fit in a 

728 


| 4K ROM. 

Consequently* we do not include it 

729 


| in the CP/NOS version CPNI0S.ASM. It would 

730 


1 fit in 

5K if it needs to be included in CP/NOS. 

731 




732 

023A OEO? 

mvi 

c,9 

733 

023C 111500 

lxi 

djwbootlsisq 

734 

023F CU0500 

call 

BIiOS 

735 




736 




737 


qetmail! 


738 

0242 3AFF00 

Ida 

Offh 

739 

0245 32B501 

sta 

firstpass 

740 


restart! 


741 

0243 360100 

Ida 

configtbl+1 * get slave IB 

742 

024B 32B200 

sta 

Mail*sg+2 * Mailssg.sid = configtbl.slavelD 

743 

024E 0E00 

mvi 

c* defaultmaster 

744 




745 


dcrcvtsq! 


746 

0250 AF 

>:ra 

a 

747 

0251 11B000 

l>:i 

d, Mailnisg 

748 

0254 12 

stax 

d 1 MSG.FMT = 0 

74? 

0255 13 

inx 

d 

750 

0256 7? 

»ov 

a*c 

751 

0257 12 

stax 

d * msg.did = Cxxl 

752 

0258 13 

inx 

d 

753 

0259 13 

inx 

d 
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754 

025ft 3E43 

Bivi 

a, rcvmg 

755 

025C 12 

stax 

d 

756 

0250 13 

inx 

d 

757 

025E AF 

xra 

a 

758 

025F 12 

s tax 

d 

75? 

0260 018000 

Ixi 

brMailfbsg 

760 

0263 CD2301 

call 

sendtsg 

761 

0266 3C 

inr 

a 

762 

0267 CAE702 

jz 

networKerr 

763 

026A OIBOOO 

lxi 

brilailmsg 

764 

0260 CD8F01 

call 

receive»sg 

765 

0270 3C 

inr 

a 

766 

0271 CAE702 

.jz 

networKerr 

767 

0274 3AB400 

Ida 

Hai lissg+4 

768 

0277 B7 

ora 

a 

76? 

0278 C28202 

■jnz 

displaying 

770 

027B 3AB500 

Ida 

Mailssg+5 

771 

027E 3C 

inr 

a 

772 

027F CADA02 

JZ 

rcvssgfailed 

773 


displayisg! 


774 

0282 21B501 

lxi 

hfFirstPass 

775 

0285 34 

inr 

* 

776 

0286 CA?702 

.jz 

noCRLF 

777 

028? 0EO2 

RVi 

c,conout 

778 

028B 1E00 

»vi 

e r CR 

77? 

0280 CD0500 

call 

BOOS 

780 

02?0 0E02 

•vi 

CfConout 

781 

0292 1E0A 

*vi 

e,LF 

732 

02?4 CD0500 

call 

BOOS 

783 


noCRLF: 


784 

0297 21BOOO 

lxi 

Mailing 

785 

02?A 365B 

■vi 

*, ; E' 

786 

02?C 23 

inx 

h 

787 

02?D EB 

xchg 


788 

02?E 3AB500 

Ida 

Hail»sgF5 

78? 

02A1 217B00 

lxi 

h r HexASCIItbl 

7?0 

02A4 F5 

push 

psw 

7?1 

02A5 E5 

push 

h 

7?2 

02A6 E6F0 

ani 

OfOh 

7?3 

02A8 OF 

rrc 


7?4 

02A? OF 

rrc 


??5 

02AA OF 

rrc 


7?6 

02AB OF 

rrc 


7?7 

02AC 4F 

fffOV 

c,a 

7?8 

02A0 0600 

■vi 

b,0 

7?? 

02AF 09 

dad 

b 

800 

0280 7E 

BlOV 

a»* 

801 

02B1 12 

s tax 

d 

302 

02B2 13 

inx 

d 

803 

02B3 El 

pop 

h 

804 

02B4 FI 

pop 

psw 

805 

02B5 E60F 

ani 

Ofh 


! nsg.f'nc = rcvmg 


» send nessage to networK 


I receive sessage fro* networK 
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806 

0287 4F 

RiOV 

C f Q 

807 

0288 09 

dad 

b 

808 

0289 7E 

BiOV 

a,* 

809 

0280 12 

sta x 

d 

810 

0288 EB 

xchg 


811 

02BC 23 

inx 

h 

812 

0288 3658 

tvi 


813 

028F 23 

inx 

h 

814 

02C0 5E 

»ov 

e,» 

815 

02C1 3620 

irivi 

ft,' ' 

816 

02C3 23 

inx 

h 

817 

02C4 3622 

RVi 

ft,'*' 

818 

02C6 23 

inx 

h 

319 

02C7 1600 

uivi 

d,0 

820 

02C9 1? 

dad 

d 

321 

02C0 3622 

ffivi 

ft,'*' 

822 

02CC 23 

inx 

h 

823 

02CD 3624 

BiVi 

ft,'*' 

CO 

ro 

02CF 0E09 

»vi 

c, print 

825 

0281 118000 

lxi 

d,Hailftsq 

826 

0284 C80500 

call 

8D0S 

827 

0287 C34802 

.j»p 

restart 

823 




829 


rcvisgf'ailedJ 


830 

0280 308501 

Ida 

FirstF’ass 

831 

0288 3C 

inr 

a 

332 

02DE C2F502 

,jnz 

Exit 

833 

02E1 115100 

lxi 

d,rcvftsqfailed»sg 

834 

02E4 C3F002 

•jffip 

prntftsg 

835 




836 


networKerrt 


337 

02E7 112100 

lxi 

d,networkerr#sg 

838 

02E0 C3F002 

«J»P 

prntssg 

839 




840 


rcvisqerrt 


841 

02E8 113800 

lxi 

d,rcvftsgerrftsq 

842 


prntftsqt 


843 

02F0 0E09 

iv i 

c, print 

844 

02F2 CB050Q 

call 

B80S 

845 


} .imp 

Exit 

846 


endif 


847 




843 


Exit: 


349 

02F5 C9 

ret 


850 




851 


page 
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852 

953 

854 

855 

856 
357 
858 
85? 
860 
861 
862 

863 

864 

865 

866 


if cpnos 

LOGIN to a Haster 
Equates 
buff equ 0080H 

readbf equ 10 

active equ 000140000b 


loginpri 


•vi 


rinitpasswordisglen 


00/ 

lxi 

hrinitpassHordnsg 

868 

lxi 

drpassHordisg 

869 

copypasswordJ 


870 

JJfOV 

a F * 

871 

stax 

d 

872 

inx 

h 

873 

inx 

d 

374 

dcr 

c 

875 

Jnz 

copypassword 

876 

ivi 

Cfprint 

877 

lxi 

dfloqinisg 

878 

call 

bugs’ 

37? 

IftVl 

c,readbf 

880 

lxi 

d,buff-1 

381 

ivi 

Uf50H 

882 

stax 

d 

883 

call 

BD0S 

884 

lxi 

hibuf'f 

885 

ffiOV 

Ufiii » get ♦ chars in the cosmand toil 

886 

ora 

a 

887 

jz 

dologin | default login if enpty cousand 

888 

iOV 

c?a 5 A = ♦ chars in coisiand tail 

389 

xra 

a 

890 

KOV 

bra | B will accululate taster IB 

891 

scanblnksf 


892 

inx 

h 

893 

AOV 

Of! 

894 

cpi 

/ / 

895 

jnz 

pastblnks i skip post leading blanks 

896 

dcr 

c 

897 

jnz 

scanblnks 

898 

j*p 

prelogin } junp if coiinand tail exhausted 
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899 

pQstblnKs*. 


900 

cpi 

901 

jz 

scanHstrlD 

902 

ffivi 

a,8 

903 

lxi 

d.passwordisg+5+8-1 

904 

xchq 


905 

spacefill J 


906 

HlVl 

' 

907 

dcx 

h 

908 

dcr 

a 

909 

jnz 

spacefill 

910 

xchq 


911 

scanLftBrktt 


912 

BtOV 

Grill 

913 

cpi 


914 

JZ 

scanHstrlD 

915 

inx 

d 

916 

stax 

d {update the password 

917 

inx 

h 

9i8 

dcr 

c 

919 

,jnz 

scanlftBrkt 

920 

j«p 

prelogin 

921 

scanHstrlDt 


922 

inx 

h 

923 

dcr 

c 

924 

JZ 

loginerr 

925 

iOV 

arid 

926 

cpi 

']' 

927 

jz 

prelogin 

928 

SU1 

'O' 

929 

cpi 

10 

930 

jc 

updatelD 

931 

adi 

I'O'-'A'HO) and Offh 

932 

cpi 

16 

933 

■jnc 

loginerr 

934 

updatelB! 


935 

push 

psw 

936 

BiOV 

a r b 

937 

odd 

a 

938 

add 

a 

939 

add 

a 

940 

add 

a 

941 

ftOV 

b r a ! accum t 16 

942 

pop 

psw 

943 

add 

b 

944 

mov 

b T a 

945 

946 


scanHstrlD 

947 

preloqinl 


948 

BlOV 

a>b 


94? 
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950 

dolooint 


951 

lxi 

brpasswordmsgFl 

952 

stax 

b 

953 

dcx 

b 

954 

call 

sendmsg 

955 

inr 

a 

956 

lxi 

drloginfailedmsg 

957 

jz 

print*sg 

958 

lxi 

brpasswordnsg 

959 

call 

receivemsg 

960 

inr 

a 

961 

lxi 

drloginfailednsg 

962 

«jz 

printmsg 

963 

Ida 

passwordmsg+5 

964 

inr 

a 

965 

,jnz 

loginOK 

966 

J»p 

printmsg 

967 



968 

loginerr! 


969 

lxi 

dfloginermsg 

970 

printssg* 


971 

iv i 

c,print 

972 

call 

BUGS 

973 

974 

j»p 

loginpr { try login again 

975 

loqmOKS 


976 

lxi 

MetworKtstatus { HL = status byte 

977 

IOV 

arm 

978 

on 

active } set active bit true 

979 

IOV 


980 

ret 


981 



982 

» 

f 


983 

1 Local Data Segment 

984 

4 

f 


935 

ioginmsq! 


986 

db 

cr,lf 

987 

db 

'LOGIN = ' 

988 

db 


989 



990 

initpasswordmsg 

* 

991 

db 

00b | FHT 

992 

db 

OOh { DID Master ID * 

993 

db 

slavetID {SID 

994 

db 

40h { FNC 

995 

db 

7 ; siz 

996 

db 

'PASSWORD' { password 

997 

initpasswordmsglen equ $-initpasswordmsg 

998 



999 
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1000 

loginerrssgl 



1001 

db" 

If 


1002 

db 

'Illegal LOGIN coaiiiand.' 

1003 

db 



1004 




1005 

loginfailedssg! 



1006 

db 

If 


1007 

db 

'LOGIN failed,' 

1008 

db 

'$' 


100? 




1010 

DSEG 



1011 

passwordnsgl 



1012 

ds 

1 

; FMT 

1013 

ds 

1 

; DID 

1014 

ds 

1 

} SID 

1015 

ds 

1 

; FNC 

1016 

ds 

1 

; siz 

1017 

ds 

8 

I HAT = password 

1018 

endif 



101? 




1020 02F6 

end 
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ACK 

0006 

195# 

579 

638 

692 



ACTIVE 

0010 

184* 

863* 

978 




ALTOS 

FFFF 

23* 

62 

239 

286 

316 

358 

ALMAYSRETRY 

FFFF 

30* 

589 

616 




ASCII 

0000 

34* 

267 

326 

390 

420 


BADCHECKSUH 

0229 

652 

682 

698* 




BAUDIU 

0229 

697* 






BUDS 

0005 

40 

42* 

734 

779 

782 

826 

CHARIN 

OOBF 

328 

353* 

434 

542 

575 

641 

CHARINO 

00C1 

351 

364* 

377 




CHARIN1 

00C3 

366* 

375 





CHARIN2 

00D8 

373 

380* 





CHARINTIHEOUT 

0187 

546 

586* 





CHAROUT 

OOAA 

273 

277 

314* 

404 

539 

700 

CHKSIN 

00F0 

438* 






CNFGTBLADR 

011F 

50 

521* 





CONFIGTBL 

0000 

126* 

467 

479 

522 

686 

741 

C0N0UT 

0002 

200* 

777 

780 




CPNOS 

0000 

24* 

39 

66 

97 

465 

498 

CR 

000D 

197* 

778 

986 




DB82 

0000 

27* 

56 

207 

294 



DEBUG 

0000 

36* 






DEFAULTHASTER 

0000 

98* 

743 





DELAY 

008B 

256* 

322 





DELAY1 

008D 

258* 

264 





DELAY2 

003F 

260* 

262 





BISPLAYMSG 

0282 

769 

773* 





DORCVMSG 

0250 

745* 






DPRTI 

001E 

210* 

223* 

231* 

242* 

381 


DPRTO 

001E 

216* 

227* 

235* 

246* 

311 


DSC2 

0000 

26* 

59 

219 

300 

491 


ENQ 

0005 

194* 

538 

635 




ENQRESPONSE 

0137 

541* 

545 





EOT 

0004 

193* 

569 

678 




ERRORRETURN 

022E 

590 

593 

617 

620 

703* 


ETX 

0003 

192* 

563 

669 




EXIT 

02F5 

832 

848* 





FALSE 

0000 

21* 

22 

24 

26 

27 

32 

FIRSTPASS 

01B5 

179* 

739 

774 

830 



GETACK 

0174 

556 

571 

574* 




GETACKO 

017A 

548 

577* 





GETHAIL 

0242 

737* 






GOTENQRESPONSE 

0144 

543 

547* 





GOTFIRSTCHAR 

01BE 

628 

633* 





HEXASCIITBL 

007B 

116* 

789 





INITOK 

0112 

502* 






LF 

000A 

196* 

781 

986 ] 

1001 

1006 


LOGIN 

0040 

203* 






HAILHSG 

00B0 

171* 

742 

747 

759 

763 

767 

HAXRETRIES 

000A 

167* 

534 

604 




HODEH 

0000 

32* 

162 

220 

355 

491 


HSGADR 

OOAD 

160* 

532 

537 

602 

624 

684 

HSGIN 

00E1 

407* 

414 

648 

664 



HSGOUT 

00F6 

446* 

551 

562 




HSGOUTLOOP 

OOFB 

452* 

457 






36? 484 


844 878 383 
654 666 675 


725 853 


34 36 


770 784 788 


972 


825 
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HSKI 

0001 

2094 

222* 

230* 

241* 

372 



HSKO 

0004 

213# 

226* 

234* 

245* 

291 



NAK 

0015 

198* 

699 






NCHAROUT 

009B 

285* 

292 

297 

315 

570 

639 

693 

NET IN 

OOEC 

409 

417* 

650 

673 




NETOUT 

OODB 

384* 

455 

555 

568 




NETttORKERR 

02E7 

762 

766 

836* 





NETW0RKERRHSG 

0021 

104* 

837 






NETWGRKSTATUS 

0000 

123* 

337 

339 

511 

514 

704 

976 

NIOS 

0000 

45* 

46 






NOCRLF 

0297 

776 

783* 






NTURKERRQR 

0239 

53 

707 

711* 





NTWRKINIT 

0105 

48 

463* 






NTHRK3TS 

0114 

49 

510* 






NTWRKWBOOT 

023A 

54 

718* 






PRECHAROUT 

0098 

280* 

451 

564 





PRINT 

0009 

201* 

824 

843 

876 

971 



PRNTHSG 

02F0 

834 

838 

842* 





RCVERR 

0002 

185* 

338 

513 

614 




RCVHSG 

0043 

202* 

754 






RCVH5GERR 

02ED 

840* 







RCVHSGERRHSG 

0038 

108# 

841 






RCVMSGFAILED 

02DA 

772 

829* 






RCVMSGF AILEDHSG 

0051 

112* 

833 






RECALL 

0199 

606# 

612 






RECEIVE 

01AB 

607 

623* 

636 





RECEIVEFIRSTCHAR 01B0 

626* 

630 






RECEIVEN3G 

018F 

52 

599* 

764 

959 




RECEIVERETRY 

019C 

609* 







RECEIVETIMEOUT 

01A3 

613* 

632 






RERECEIVEHSG 

0194 

603* 

618 






RESENDHSG 

0128 

533* 

591 






RESTART 

0248 

740* 

827 






RETRYCOUNT 

OOAF 

168* 

535 

583 

605 

610 



SEND 

012D 

536* 

585 






SENDACK 

0221 

653 

688 

690* 





SENDERR 

0001 

186* 

513 

587 





SENDHSG 

0123 

51 

529* 

760 

954 




SENDRETRY 

017F 

576 

581* 






SLAVEID 

0056 

57* 

60* 

63* 

70 

92 

478 

993 

SOH 

0001 

190* 

549 

644 





ST AT I 

001F 

208* 

221* 

229* 

240* 

369 

371 


STATO 

001F 

212* 

225* 

233* 

244* 

288 

290 

493 

STX 

0002 

191* 

561 

657 





TIHEOUTRETRIES 

0064 

163* 

165* 

540 

625 




TRUE 

FFFF 

22* 

28 

30 





WBOOTHSG 

0015 

100* 

733 






XCHARIN 

OOBA 

349* 

627 
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1 



title 

faster Network I/F Module' 

2 



name 

'netwrkif' 

3 



page 

60 

4 



itmmmmnmtmmmmmtmmmmmtmmmm 

5 




6 



;« 

** 

7 

t 



}tt H a s 

ter Network I/F Module U 

s 



m 

%% 

? 



mnmmnmmmmmmnmmmmmtmmmmm 

10 



11 





12 



/* 


13 



Copyright (C) 1980,1981,1982 

14 



Digital Research 

15 



F'»0, Box 579 

16 



Pacific Grove, CA 93950 

17 





18 



Modified April 26, 1982 

1? 





20 



*/ 


21 





22 





23 

0000 = 

false equ 

0 

24 

FFFF = 

true equ 

not false 

bJ 

26 

0000 = 


:80 equ 

false 

27 





28 

0000 = 

debug equ 

false 

2? 

0000 = 

ftodeifi equ 

false 

30 





31 

FFFF = 

ifiQi 1 equ 

true ,* allocate storage and setup uailbox 

32 





33 

0000 = 

WtchDq equ 

false 1 include watch doq timer 

34 





35 

0000 = 

autexin equ 

false | provide autual exclusion on input 

36 

37 

0000 = 

uiutexout equ 

false | provide mutual exclusion on output 

38 

0010 = 


NmbFchs 

equ 16 ! Nuaber of fcbs for each slave 

3? 





40 



if 

debug 

41 


NsbSlvs equ 

1 

i 

42 





43 



hi 

sp ,NtwrkIS0+2eh 

44 



»vi 

c, 145 

45 



*vi 

e,64 

46 



coll 

bdos i set priority to 64 

47 



lxi 

hfUQCBNtwrkQIO 

48 



Ixi 

d,ilQC8NtwrKQ00 

4? 



lxi 

b»BufferQ0 

50 



»vi 

a,00h 

51 



ret 
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53 


bdosadrl 



54 



dw 

0005h 


55 






56 



else 



5? 


INubSlvs 

equ 2 


58 

0001 = 

NiibSlvs equ 

1 

;bks test 

5? 


bdosadr; 



60 

0000 0000 


dw 

$-$ 


61 



endif 



62 






63 


♦ 

f 

Network Interface Process #0 

64 


4 




65 


NtwrKIPO: 



66 

0002 0000 


dw 

0 

; link 

6? 

0004 00 


db 

0 

} status 

68 

0005 40 


db 

64 

} priority 

6? 

0006 6400 


dw 

NtwrkISO+46 

J stack pointer 

70 

0008 4E7477726B 

db 

'NtwrKIPO' 

I name 

71 

0010 00 


db 

0 

1 console 

72 

0011 FF 


db 

Offh 

i itenseg 

73 

0012 


ds 

2 

; b 

74 

0014 


ds 

2 

J thread 

75 

0016 


ds 

2 

; buff 

76 

0018 


ds 

1 

J user code 1 disk slct 

77 

0019 


ds 

2 

| dent 

78 

0018 


ds 

1 

} searchl 

79 

001C 


ds 

2 

! searcha 

80 

001E 


ds 

n 

Cm 

| active drives 

81 

0020 0000 


dw 

0 

HL' 

32 

0022 0000 


dw 

0 

} BE' 

83 

0024 0000 


dw 

0 

? BC' 

84 

0026 0000 


dw 

0 

; 6F' 

85 

0028 0000 


dw 

0 

7 IT 

86 

002A 0000 


dw 

0 

; ix 

87 

002C 8000 


dw 

UQCBNtwrkGIO 

; hl 

88 

002E 6000 


dw 

UQCBNtwrkQQO 

» BE 

89 

0030 6600 


dw 

BufferBO 

; bc 

90 

0032 0000 


dw 

0 

} 6F f 6 = ntwkif consol 

91 

0034 


ds 

2 

1 scratch 

92 






93 


NtwrKISOJ 



94 

0036 C7C7C7C7C7 

dw 

0c7c7h *0c7c7h,0c7c7h-0c7c7h 

95 

003E C7C7C7C7C7 

dw 

0c7c7h f 0c7c?h 

f 0c7c7h»0c7c?h 

96 

0046 C7C7C7C7C7 

dw 

0c 7c 7h»0c 7c 7h, 0c 7c 7h»0c 7c ?h 

97 

004E C7C7C7C7C7 

dw 

Qc7c7h,0c7c7Mc7c7Mc7c7h 

98 

0056 C7C7C7C7C7 

dw 

0c7c7h.0c7c?h 

f 0c7c7h r 0c7c7h 

99 

005E C7C7C7C7C7 

dw 

0c7c?hr0c?c?h f 0c7c7h 

100 

0064 EF06 


dw 

setup 
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101 





102 


QCBHtwrKQIO! 



103 

0066 

ds 

2 

\ link 

104 

0068 4E7477726B db 

'NtwrkQIO' 

1 nane 

105 

0070 0200 

dw 

2 

j nsglen 

106 

0072 0100 

dw 

1 

{ nnbnsgs 

107 

0074 

ds 

2 

i dqph 

108 

0076 

ds 

2 

t nqph 

109 

0078 

ds 

2 

J Jisgin 

110 

0076 

ds 

2 

} nsgout 

111 

007C 

ds 

2 

t nsgcnt 

112 

007E 

ds 

2 

} buffer 

113 





114 


UGCBNtwrkQIOJ 



115 

0080 6600 

dw 

QCBNtwrkQIO 

1 pointer 

116 

0082 8400 

dw 

BufferQI06ddr 

! nsgadr 

117 


BufferQIOAddri 



118 

0084 6600 

dw 

BufferQO 


119 





120 


QCBHtwrkGOOt 



121 

0086 

ds 

2 

! link 

122 

0088 4E7477726B db 

'NtwrKQOO' 

i na»e 

123 

0090 0200 

dw 

2 

} nsglen 

124 

0092 0100 

dw 

1 

j nnibftsgs 

125 

0094 

ds 

2 

5 dqph 

126 

0096 

ds 

2 

J nqph 

127 

0098 

ds 

2 

r isgin 

128 

009A 

ds 

2 

5 nsgout 

129 

009C 

ds 

2 

} nsgcnt 

130 

009E 

ds 

2 

r buffer 

131 





132 


UGCBNtwrkGOO: 



133 

0060 3600 

dw 

GCBNtwrKQOO 

1 pointer 

134 

0062 6400 

dw 

BufferQ006ddr 

> nsgadr 

135 


BufferQOOAddrt 



136 

0064 

ds 

2 


137 





138 


BufferGOi 



139 

0066 

ds 

1 

1 F6T 

140 

0067 

ds 

1 

} DIB 

141 

0068 

ds 

1 

; SID 

142 

0069 

ds 

1 

1 FNC 

143 

0066 

ds 

1 

i SIZ 

144 

006B 

ds 

256 

; MSG 

145 





146 


f Network 

Interface Process #1 

147 


» 



148 


if 

NnbSlvs GE 2 


149 


NtwrKIPlJ 



150 


if 

NnbSlvs GE 3 


151 


dw 

Nt-wrK IP2 

} link 

152 


else 



153 


dw 

0 

J link 

154 


endif 
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155 

db 

0 

status 

156 

db 

64 

priority 

15? 

dw 

NtwrkISl+46 

stack pointer 

158 

db 

'NtwrKIPl' 

none 

15? 

db 

0 

console 

160 

db 

Of fh 

fie#seq 

161 

ds 

2 

b 

162 

ds 

n 

c 

thread 

163 

ds 

n 

L 

buff 

164 

ds 

1 

user code 1 disk slct 

165 

ds 

9 

dent 

166 

ds 

i 

searchl 

167 

ds 

2 

searcha 

168 

ds 

L. 

active drives 

169 

dw 

0 

HL' 

170 

dw 

0 

BE' 

171 

dw 

0 

BC' 

172 

dw 

0 

AF' 

173 

dw 

0 

IY 

174 

dw 

0 

IX 

175 

dw 

UQCBNtwrkQIl 

HL 

176 

dw 

UQCBNtwrkGOl 

HE 

177 

dw 

BufferQl 

BC 

178 

dw 

0100H 

AF, A = ntwkif console dev # 

179 

ds 

2 

scratch 

180 




181 

NtwrKISlJ 



132 

dw 

0c7c7h,0c7c7h,0c7c7h,0c7c?h 

183 

dw 

0c7c?h,0c?c7h,0c7c7h,0c?c7h 

184 

dw 

0c7c7h » 0c7c7h,0c?c?h,0c7c7h 

185 

dw 

0c7c7h,0c?c?h,0c7c7h,0c7c?h 

186 

dw 

0c?c7h,0c7c7h,0c7c7h ,0c?c7h 

187 

dw 

0c7c7h,0c?c7h,0c7c7h 

188 

dw 

init 


18? 




190 

QCBHtwrKQIi: 



191 

ds 

2 

I link 

192 

db 

'NtwrkQIl' 

$ nane 

193 

dw 

0 

i. 

I nsglen 

194 

dw 

1 

! nmbitisqs 

195 

ds 

2 

» dqph 

196 

ds 

9 

| nqph 

197 

ds 

2 

I sisgin 

198 

ds 

2 

I itsqout 

199 

ds 

2 

{ iisgcnt 

200 

ds 

2 

} buffer 

201 




202 

UQCBNtwrKQIlt 



203 

dw 

QCBNtwrKQIl 

{ pointer 

204 

dw 

BufferQIlAddr 

| iisqodr 

205 

BufferQIiftddri 



206 

dw 

BufferQl 


207 
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208 

QCBNtwrkQOi: 



209 

ds 

2 

1 link 

210 

db 

'NtwrKQOl' 

> nase 

211 

dw 

2 

} nsglen 

212 

dw 

1 

! nnbftsqs 

213 

ds 

0 

A. 

f dqph 

214 

ds 

2 

{ nqph 

215 

ds 

n 

L. 

r iisgin 

216 

ds 

n 

c 

} ssqout 

21? 

ds 

0 

«. 

t iisgcnt 

218 

ds 

2 

> buffer 

219 




220 

UQCBNtwrkQOi: 



221 

dw 

QCBNtwrkQOi 

J pointer 

222 

dw 

BufferQOl/lddr 

} msgadr 

223 

BufferQOiAddr! 



224 

ds 

2 


225 




226 

BufferQ15 



227 

ds 

1 

} FNT 

228 

ds 

1 

} DID 

229 

ds 

1 

} SID 

230 

ds 

1 

} PNC 

231 

ds 

1 

i SIZ 

232 

ds 

256 

; NSG 

233 

endif 



234 




235 

I Network 

Interface Process *2 

236 

* 



237 

if 

NubSlvs GE 3 


238 

NtwrKIP2l 



239 

if 

NnbSlvs GE 4 


240 

dw 

NtwrK IP3 

i link 

241 

else 



242 

dw 

0 

; link 

243 

endif 



244 

db 

0 

; status 

245 

db 

64 

J priority 

246 

dw 

NtwrkIS2+46 

t stack pointer 

247 

db 

'NtwrKIP2' 

} nase 

248 

db 

0 

r console 

249 

db 

Offh 

! neaseg 

250 

ds 

2 

t b 

251 

ds 

2 

{ thread 

252 

ds 

2 

1 buff 

253 

ds 

1 

» user code & di 

254 

ds 

2 

J dent 

255 

ds 

1 

» searchl 

256 

ds 

0 

A. 

I searcha 

257 

ds 

2 

J active drives 

258 

dw 

0 

} HL' 

259 

dw 

0 

{ DE' 
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260 

dw 

0 } BC' 

261 

dw 

0 } AF' 

262 

dw 

0 { IY 

263 

dw 

o ; IX 

264 

dw 

UQCBNtwrKQI2 | HL 

265 

dw 

UQCBNtwrkQ02 } HE 

266 

dw 

BufferQ2 ? BC 

26? 

dw 

0200h ; AF, A = nl 

268 

ds 

2 } scrotch 

26? 



270 

MtwrKIS2I 


271 

dw 

0c?c7h,0c7c7h ? 0c?c7h,0c7c7h 

272 

dw 

0c7c7h f 0c7c?h?0c7c7hr0c7c7h 

273 

dw 

0c7c7h j 0c7c7h f 0c7c7h r0c7c7h 

274 

dw 

0c7c7h,0c?c7h,0c7c7h,0c7c7h 

275 

dw 

0c7c7h,0c7c7h,0c7c7h,0c7c7h 

276 

dw 

0c7c7h?0c7c7hf0c7c7h 

277 

dw 

init 

278 



279 

GCBNtwrKQI2! 


280 

ds 

2 } link 

281 

db 

'NtHrkQI2' } name 

282 

dw 

2 ? Bsglen 

283 

dw 

1 } nnbnsqs 

284 

ds 

2 } dqph 

285 

ds 

2 5 nqph 

286 

ds 

2 » rnsgin 

287 

ds 

2 t nsgout 

288 

ds 

2 1 hsgcnt 

28? 

ds 

2 1 buffer 

290 



291 

UGCBNtwrkQI2l 


292 

dw 

QCBNtwrKQI2 » pointer 

293 

dw 

BufferQI2Addr | asqadr 

294 

BufferQI2Addr! 


295 

dw 

BufferQ2 

296 



297 

QCBNtwrKGG2l 


298 

ds 

2 ? link 

299 

db 

'NtwrkQ02' 1 none 

300 

dw 

2 > nsqlen 

301 

dw 

1 | nnbtsgs 

302 

ds 

2 5 dqph 

303 

ds 

2 J nqph 

304 

ds 

2 { *sgin 

305 

ds 

2 { nsgout 

306 

ds 

2 } nsgcnt 

307 

ds 

2 J buffer 

308 



30? 

UQCBNtwrKQ02J 


310 

dw 

QCBNtwrkQQ2 1 pointer 

311 

dw 

BufferQ02Addr f nsgodr 

312 

BufferGG2Addr: 


313 

ds 

2 
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315 

BufferQ2: 



316 

ds 

i 

; FMT 

317 

ds 

i 

; did 

318 

ds 

i 

; sin 

31? 

ds 

i 

,* FNC 

320 

ds 

i 

,* SI2 

321 

ds 

256 

} MSG 

322 

endif 



323 




324 

r Network Interface Process #3 

325 

» 

f 



326 

if 

ftabSlvs BE 4 


327 

HtwrkIP3♦ 



328 

dw 

0 

J link 

329 

db 

0 

1 status 

330 

db 

64 

i priority 

331 

dw 

NtwrkIS3+46 

} stack pointer 

332 

db 

'NtwrkIP3' 

r none 

333 

db 

0 

I console 

334 

db 

Offh 

r neiseq 

335 

ds 

2 

; b 

336 

ds 

2 

f thread 

337 

ds 

9 

; buff 

338 

ds 

1 

( user code & disk slct 

33? 

ds 

2 

I dent 

340 

ds 

1 

1 searchl 

341 

ds 

0 

L. 

} searcha 

342 

ds 

2 

} active drives 

343 

dw 

0 

I HL' 

344 

dw 

0 

1 HE' 

345 

dw 

0 

; bc' 

346 

dw 

0 

; of' 

347 

dw 

0 

; iy 

348 

dw 

0 

f IX 

34? 

dw 

UQCBNtwrkQI3 

; hi 

350 

dw 

IJQCBNtwrKQ03 

; be 

351 

dw 

BufferG3 

; bc 

352 

dw 

0300h 

r AF r A = ntwkif console dev ♦ 

353 

ds 

2 

} scratch 

354 




355 

NtwrkIS3t 



356 

dw 

0c7c7h,0c7c7h 

f 0c7c7h f 0c7c7h 

357 

dw 

0c7c7h,0c7c7h 

,0c7c7h,0c7c7h 

358 

dw 

0c7c7h,0c7c7hf0c7c7h»0c7c7h 

35? 

dw 

0c7c7h»0c7c7h 

f 0c7c7hf0c7c7h 

360 

dw 

0c7c?h,0c?c7h 

»0c7c7hr0c7c7h 

361 

dw 

0c7c7h»0c7c7h?0c7c7h 

362 

dw 

init 



363 
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364 

QCBNtwrKQI3J 



365 

ds 

2 

| link 

366 

db 

'NtwrKQI3' 

? n<mie 

367 

dw 

2 

■ msglen 

368 

dw 

i 

I msbmsgs 

369 

ds 

2 

t dqph 

370 

ds 

2 

5 nqph 

371 

ds 

n 

i. 

r »sgin 

372 

ds 

o 

c. 

} msgout 

373 

ds 

2 

; msqcnt 

374 

ds 

9 

I buffer 

375 




376 

UQCBNtwrkGI3» 



377 

dw 

QCBNtwrKQI3 

} pointer 

373 

dw 

BufferQI3Addr 

} msgadr 

379 

BufferGI3Addri 



380 

dw 

BufferQ3 


381 




382 

QCBNtwrKQ03t 



383 

ds 

2 

? link 

384 

db 

'NtwrKG03' 

; name 

385 

dw 

2 

$ nsglen 

386 

dw 

1 

t nmbnsgs 

387 

ds 

0 

i. 

1 dqph 

388 

ds 

2 

» nqph 

389 

ds 

2 

r ftsgin 

390 

ds 

2 

1 msgout 

391 

ds 

2 

r msgcnt 

392 

ds 

9 

J buffer 

393 




394 

UQCBNtwrkQ03t 



395 

dw 

GCBNtwrKQ03 

{ pointer 

396 

dw 

BufferQ03rtddr 

! msqadr 

397 

BufferQ03AddrJ 



398 

ds 

0 

L. 


399 




400 

BufferQ3l 



401 

ds 

1 

} FMT 

402 

ds 

1 

; DID 

403 

ds 

1 

} SID 

404 

ds 

1 

} FNC 

405 

ds 

1 

1 SIZ 

406 

ds 

256 

; MSG 

407 

end it 



408 




409 
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410 

if 

WtchDg 



411 

f Watchdog Tinier Process 



412 

♦ 




413 

WoichDoqPIU 




414 

‘if 

NmbSlvs GT 1 



415 

dw 

NtwrkIPi 

f link 


416 

eise 




417 

dw 

0 

I link 


418 

endif 




419 

db 

0 

5 status 


420 

db 

64 

i priority 


421 

dw 

WatchDogSTKT46 * stack pointer 


422 

db 

'WatchDoq' 

r name 


423 

db 

0 

1 console 


424 

db 

Offh 

1 memseg 


425 

ds 

2 

1 b 


426 

ds 

9 

1 thread 


427 

ds 

9 

; buff 


428 

ds 

l 

1 user code X disk slct 

42? 

ds 

9 

{ dent 


430 

ds 

i 

{ seorchl 


431 

ds 

2 

1 searcha 


432 

ds 

9 

1 active drives 


433 

dw 

0 

J HL' 


434 

dw 

0 

I DE' 


435 

dw 

0 

; bc' 


436 

dw 

0 

; of' 


437 

dw 

0 

; iy 


438 

dw 

0 

; ix 


43? 

dw 

0 

; hi 


440 

dw 

0 

; be 


441 

dw 

0 

; sc 


442 

dw 

0 

; a f 


443 

ds 

9 

} scratch 


444 





445 

WatchDoqSTKt 




446 

dw 

0c7c7h,0c7c7h f 0c7c7hj0c7c7h 


447 

dw 

0c7c7h»0c7c7h 

,0c7c7h,0c7c7h 


448 

dw 

0c?c7Mc7c7Mc7c7h,0c7c7h 


44? 

dw 

0c7c7hj0c7c?h,0c7c7hf0c7c7h 


450 

dw 

0c7c7h,0c?c?h,0c7c7h,0c7c?h 


451 

dw 

0c7c7Mc7c7Mc7c7h 


452 

dw 

WatchDoq 



453 





454 

WatchDogTiBiet 




455 

dw 

t-t | one- 

■second counter 


456 





457 

Watch Dog Tab let 




458 

r 

? 

Waiting Timeout Start Flaa S 

lave 

45? 

db 

0, 0, 

0,0 ? Oah } 

40 

460 

db 

0, 0, 

0?0? ubh » 

*1 

461 

db 

0, 0, 

0?Uf Of h » 

12 

462 

db 

0, 0, 

0 f 0 ? Od h ? 

43 

463 

endif 
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464 




465 


if 

ftutexin or »utexout 

466 


QCBHXSXftitqt 

} HX queue for slv x»iting 

467 


ds 

2 1 link 

468 


db 

'HXSXffiitq' 1 na»e 

46? 


d w 

0 { asglen 

470 


dw 

1 j nmbftsqs 

471 


ds 

2 1 dqph 

472 


ds 

2 r nqph 

473 


ds 

2 ! isgin 

474 


ds 

2 } nsgout 

475 


ds 

2 J nsgcnt 

476 


ds 

2 J buffer (owner F'D) 

477 




478 


UQCBHXSXftitq J 


47? 


dw 

QCBMXSXkitq 

480 


\ dw 

0 

481 


; db 

'HXSXsitq' 

482 


endif 


483 




484 


{ Master Configuration Table 

485 




486 


configtbll 


487 

01AB 00 

db 

0 { Master status byte 

488 

01 AC 00 

db 

0 } Master processor IB 

489 

01A0 01 

db 

NubSlvs { Naxitui nu»ber of slaves supported 

490 

01AE 03 

db 

3 I Nui»ber of logged in slaves 

491 

01AF 0E00 

du 

OOOeh | 16 bit vector of logqed in slaves 

492 

0181 01 

db 

01 

4?3 

01B2 02 

db 

02 

4?4 

0183 03 

db 

03 

495 

0184 

ds 

13 » Slave processor IB's 

496 

01C1 5041535357 db 

'PASSW0RB' } login password 

497 

01C? 10 

db 

nubfcbs r Nu*ber of FCB's for each slave 

498 

01CA E601 

du 

fcbtable } Address of table containing fcbs 

499 




500 

0001 = 

nnsg equ 

1 } nuiber of »essages buffered 

501 




502 


JSlaveO! 

{ storage allocated in SLAVESP 

503 


! ds 

52 } processor descriptor 

504 


r ds 

450 } stack area for reentrant slave sp 

505 




506 


if 

NubSlvs 6E 2 

507 


Slavelt 


508 


ds 

52 J processor descriptor 

50? 


ds 

450 } stack area for reentrant slave sp 

510 


endif 


511 




512 


if 

NubSlvs GE 3 

513 


Slave2! 


514 


ds 

52 j processor descriptor 

515 


ds 

450 { stack area for reentrant slave sp 

516 


endif 
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517 


518 

if 

NubSlvs 

GE 4 

519 

Slave31 



520 

ds 

52 

1 processor descriptor 

521 

ds 

450 

{ stack area for reentrant 

522 

endif 



523 




524 

if 

nail 



525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 


Interprocessor Electronic Hail Data Segment 


HailBoxJ 


01CC 

01CE 4D61696C42 

0106 0200 

01DB 0100 

01 DA 

01DC 

01DE 

01EO 

01E2 

01E4 


ds 

2 

1 link 

db 

'MailBoxQ' 

r na»e 

dw 

2 

} asglen 

dw 

1 

} nubssgs 

ds 

2 

? dqph 

ds 

2 

J nqph 

ds 

2 

1 isgin 

ds 

2 

t nsgout 

ds 

2 

} nrsgcnt 

ds 

2 

{ buffer 


540 

541 

01E6 

fcbtablel 

ds 40lniiibfcb5kn»bSlv5 

542 


HailBoxtJGCB: 



543 

0466 CC01 

dw 

HailBox 

r pointer 

544 

0468 6A04 

dw 

HailBoxAdr 

i itsgadr 

545 





546 


MailBoxAdrl 



547 

046ft 6C04 

dw 

HailBoxes 

? Mail Box Data Structure Adr 

548 





549 

0004 = 

nnb$»ail 

equ 4 

I ♦ pieces »ail sax per slave 

550 

0080 = 

size$»ail 

equ 128 

» »ax size per piece of mail 

551 




i includes two byte overhead 

552 




} source ID and size 

553 





554 

0200 = 

*ail$buffer$size equ niiibtiriailksizeliiiail 

555 





556 


Mail$boxe&5 



557 

046C 04 

db 

nihbfAail 


558 

0460 80 

db 

sizelaail 


559 





560 


Hstrftaili 



561 

046E 00 

db 

0 ; Haster Hail In Ptr 

562 

046F 00 

db 

0 } Master Mail Out Ptr 

563 

0470 00 

db 

0 j Master Mail Cnt 

564 

0471 7804 

dw 

MstrMailBuffer 

i Master Hail Buffer Adr 


565 
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566 


SlvOMaill 

56? 

0473 00 

db 0 5 Slave *0 Mail In F'tr 

568 

0474 00 

db 0 » Slave *0 Hail Out Ptr 

56? 

0475 00 

db 0 | Slave 40 Mail Cnt 

570 

571 

0476 7806 

dw SlvOHailBuffer { Slave *0 Mail Buffer Adr 

572 


if NnbSlvs GE 2 

573 


SlvlMailt 

574 


db 0 } Slave 41 Mail In Ptr 

575 


db 0 I Slave 41 Mail Out Ptr 

576 


db 0 } Slave 41 Mail Cnt 

577 


dw SlvlMailBuffer } Slave 41 Mail Buffer Adr 

578 

57? 


endif 

580 


if NnbSlvs GE 3 

531 


Slv2Maill 

582 


db 0 } Slave 42 Mail In Ptr 

583 


db 0 1 Slave 42 Mail Out F'tr 

584 


db 0 ! Slate 42 Mail Cnt 

585 


dw Slv2MailBuffer } Slave 42 Mail Buffer Adr 

586 

587 


endif 

588 


if NftbSlvs GE 4 

58? 


Slv3Mail! 

5?0 


db 0 1 Slave 43 Mail In Ptr 

5?1 


db 0 j Slave 43 Mail Out F'tr 

592 


db 0 I Slave 43 Mail Cnt 

5?3 


dw Slv3MailBuffer } Slave 43 Mail Buffer Adr 

5?4 

5?5 


endif 

5?6 


MstrMailBufferl 

5?7 

5?8 

0478 

ds nailtbufferisize 

5?? 


SlvOHailBuffer; 

600 

601 

0678 

ds Bail$buffer$size 

602 


if MftbSivs GE 2 

603 


SlvlMailBuffer; 

604 


ds *ail$buffer$size 

605 

606 


endif 

60? 


if NnbSlvs GE 3 

608 


Slv2MailBuffer; 

60? 


ds »ailtbuffer$size 

610 

611 


endif 

612 


if' NfhbSlvs GE 4 

613 


Slv3HailBuffer5 

614 


ds snil$buffer$size 

615 


endif 

616 


endif i Batches if sail 
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617 


613 


619 


620 


621 

0878 FF 

622 

0879 FF 

623 

087A FF 

624 

087B FF 

625 


626 


627 

087C 00 

628 

087H 00 

629 

087E 00 

630 

087F 00 

631 


632 

0880 0000 

633 


634 

OOOA = 

635 


636 


637 


638 


639 


640 


641 

002B = 

642 

002F = 

643 

0020 = 

644 

0029 = 

645 


646 


647 


648 


649 


650 


651 


652 


653 


654 


655 


656 


657 


658 

0882 03 

659 

0883 02 

660 

0884 01 

661 

0885 04 

662 


663 


664 

0080 = 

665 

0010 = 

666 

0008 = 

667 

0004 = 

668 

0002 = 

669 

0001 = 


> Local Data Segment 
♦ 
f 

BinaryASCIIi 

clb Offh 

db Offh 

db Offh 

db Offh 

Networkstatusl 


db 

0 

1 Slave #0 network status byte 

db 

0 

; *1 

db 

0 

; *2 

db 

0 

; #3 

conin! dw 

i-i 

1 save area for XIOS routine address 

maxiretries 

equ 

10 f maximum send message retries 

? The 

following tables are for use in the ALTOS i/o routines^ 


Note that this program HUST be used with an XIOS which allows 
using the second printer port as a console port - Accessed as console 

#4 


Console4lstatus equ 

02bh 

Console3$status equ 

02fh 

Console2istatus equ 

02dh 

Printer2istatus equ 

029h ; ALSO CONSOLE *4 

if z80 


1 ENTRIES IN THE FOLLOWING TWO TABLES MUST HATCH !!!! 


statusiports.* 

db Console4$5tQtu5 | Console 4 (Slave 0) status port 
db Console3$status } Console 3 (Slave 1) status port 
db Console2$status f Console 2 (Slave 2) status port 
db Printer2$status J Printer 2 (Slave 3) status port 
end if 


Slave *0; 0=7 bit ASCII, FF=8 bit binary 

*1 

*2 

♦3 


chariotblJ { Relationship between slaves and consoles 

db 3 

db 2 

db 1 

db 4 

J Network Status Byte Equates 


ntwrktxrdy 

equ 

10000000b 

active 

equ 

00010000b 

msgerr 

equ 

00001000b 

ntwrk 

equ 

00000100b 

msgovr 

equ 

00000010b 

ntwrkrxrdy 

equ 

00000001b 


} ntwrk I/F ready to send msg 
{ slave logged into network 
j error in received message 
{ network alive 
} message overrun 
{ ntwrk I/F has rcvd msg 
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670 

471 | BIAS and XDOS Equates 


672 


4 

* 



673 

0085 = 

flagset equ 

133 

flag set 

674 

0086 = 

makeq equ 

134 

iiaKe queue 

675 

0089 = 

readq equ 

137 

read queue 

676 

008B = 

writeq equ 

139 

write queue 

677 

008H = 

delay equ 

141 

delay 

678 

OOBE = 

dsptch equ 

142 

dispatch 

679 

0090 = 

createp equ 

144 

create process 

680 

009A = 

sydatad equ 

154 

system data page address 

631 

0083 = 

poll equ 

083h 

Poll device 

682 





683 


i General Equates 


684 


» 

f 



685 

0001 = 

S0H equ 

Olh 

| Start of Header 

636 

0002 = 

STX equ 

02h 

1 Start of Bata 

687 

0003 = 

ETX equ 

03h 

1 End of Bata 

688 

0004 = 

EOT equ 

Q4h 

| End of Transmission 

689 

0005 = 

ENQ equ 

05h 

| Enquire 

690 

0006 = 

ACK equ 

06h 

| Acknowledge 

691 

O00A = 

LF equ 

Oah 

} Line Feed 

692 

000D = 

CF: equ 

Odh 

» Carriage Return 

693 

0015 = 

NAK equ 

15h 

? Negative Acknowledge 

694 





695 

0010 = 

printer2 

equ 

10b { special poll device number for second 

696 



{ printer port 

697 





698 


; Utility Procedures 

699 


* 

f 



700 


bdost 



701 

0886 2AOOOO 

lhld 

bdosadr 


702 

0889 E9 

pchl 



703 





704 


Niboutt 


} A = nibble to be transmitted in ASCII 

705 

OSSA FE0A 

cpi 

10 


706 

088C B29508 

•jnc 

nibatof 

} .jump if A-F 

707 

038F C630 

adi 

'0 J 


708 

0891 4F 

UiOV 

c f a 


709 

0892 C39E08 

jmp 

Charout 


710 


nibatofl 



711 

0895 C637 

adi 

"A'-10 


712 

0897 4F 

BlOV 

c»a 


713 

0898 C39E08 

■imp 

Charout 


714 





715 


F'reCharoutl 



716 

039B 7A 

ffiOV 

a,d 


717 

089C 81 

add 

c 


718 

089D 57 

mov 

d*a 

; update the checksum 


719 
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738 

739 


720 

if 

z30 

721 chartout! 


722 



723 

Character output routine for network i/o 

724 

using the ALTOS SIO ports 

725 



726 

EntryJ C register contains 8 bit volue to transmit 

727 

Entry 

’ Slave nusber in register b 

728 



729 

push 

h 

730 

push 

d 

731 

push 

b 

732 

mov 

dr c 1 save the character 

733 

lxi 

h> statustports 

734 

BOV 

Cr b 

735 

mv i 

b» 0 { set (BC) = (b) 

736 

dad 

b 

737 

BOV 

C r 16 


I Now C contains the address of the correct status port 
outputloopI 


740 


RlVl 

a, 10b 

741 

» 

f 

out 

(c) f a 

742 


db 

0edh,79h 

743 

♦ 

} 

in 

a,(c) 

744 


db 

0edh,78h 

745 


ani 

04h 

746 

747 


J2 

outputloop 

748 


! In the Altos sysl 

749 


dcr 

c 

750 

♦ 

f 

out 

(c) f d 

751 


db 

0edh,51h 

752 


pop 

b 

753 


pop 

d 

754 


pop 

h 

'755 


ret 


756 




757 


else 


758 


0 



? wait for TXready 


759 

760 

761 

762 

763 

764 

765 

766 089E E5 

767 089F D5 

763 0360 C5 

769 


chartoutt 

t Character output routine for network I/O 

l using ALTOS SIO ports 

{ Entry! C = character to transmit 
1 8 = slave id byte 

push h 

push d 

push b 
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770 

08A1 11AF08 


lxi 

dfOutO 

; dispatch address = 

771 

08A4 68 


mov 

l»b 

} outO + slaveid*16 

772 

08A5 2600 


nvi 

h f 0 


773 

08A7 29 


dad 

h 


774 

08A8 29 


dad 

h 


775 

08A9 2? 


dad 

h 


776 

08AA 29 


dad 

h 


777 

Q8AB 19 


dad 

d 

{load 'get transmit status' value 

778 

08AC 3E10 


mvi 

a,i0h 

77? 

08AE E? 


pchl 


{dispatch 

780 






781 


outO! 




782 

08AF B32B 


out 

Console4$status 

{wait for TXready status 

783 

0381 DB2B 


in 

Console4tstatus 


784 

0883 E604 


ani 

4 


785 

0885 CAAF08 


jz 

outO 


786 






787 

0388 79 


mov 

a f c 


788 

088? 832A 


out 

Console4$status-l 

{write the character 

78? 

0888 Cl 


pop 

b 


7?0 

08BC 81 


pop 

d 


791 

0888 El 


pop 

h 


7?2 

08BE C? 


ret 



793 






794 

08BF D32F 

outli 

out 

Console3$status 


795 

08C1 DB2F 


in 

Console3$status 


796 

08C3 E604 


ani 

4 


797 

08C5 CA8F08 


jz 

outl 


798 






79? 

08C8 79 


mov 

ajc 


800 

08C? B32E 


out 

Console3$status-1 


801 

Q8CB Cl 


pop 

b 


802 

08CC 81 


pop 

d 


303 

08CB El 


pop 

h 


804 

08CE C? 


ret 



305 






806 

08CF 8328 

out2J 

out 

Console2$status 


307 

0881 BB2B 


in 

Console2tstatus 


808 

0883 E604 


ani 

4 


809 

0885 CACF08 


Jz 

out2 


810 






811 

0888 79 


mov 

a»c 


812 

088? B32C 


out 

Console2$status-l 


813 

0888 Cl 


pop 

b 


814 

08BC 81 


pop 

d 


815 

0888 El 


pop 

h 


816 

08BE C? 


ret 



817 






818 

08DF 8329 

out3{ 

out 

Printer2$status 


31? 

08E1 882? 


in 

Printer2tstatus 


820 

08E3 E604 


ani 

4 


821 

08E5 CABF08 


Jz 

out3 
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822 




823 

08E8 7? 

BlOV 

o f c 

824 

08E9 8328 

out 

Printer2$status-1 

825 

08EB Cl 

pop 

b 

826 

08EC D1 

pop 

d 

827 

08EH El 

pop 

h 

828 

08EE C? 

ret 


82? 




330 


end if 


831 




832 




833 


* 

f 


834 




835 


Nibin! 

} return nibble in A register 

836 

08EF CD2609 

coll 

Charm 

837 

08F2 D8 

rc 


838 

08F3 E67F 

oni 

07fh 

83? 

08F5 D630 

5Ui 

'O' 

840 

08F7 FE0A 

cpi 

10 

841 

08F9 HA0F09 

Jc 

Nibin$return | bust be 0-9 

842 

08FC C6F9 

odi 

<'0'-'A'+10) and Offh 

843 

08FE FE10 

cpi 

16 

844 

0900 DA0F09 

■jc 

Nibin$return } must be 10-15 

845 

0903 3A7C08 

Ido 

networkstatus 

846 

0906 F608 

ori 

msgerr 

347 

0908 327C08 

sto 

networKstatus 

848 

0908 3E00 

mvi 

a f 0 

84? 

090B 37 

stc 


850 

090E C? 

ret. 


851 


Nib in$ return! 


852 

090F B7 

oro 

a 

853 

0910 C? 

ret 


854 




855 


>:Char$in! 


856 


» 

f 


857 

0911 E5 

push 

h 

858 

0912 05 

push 

b 

85? 

0913 212309 

lxi 

h f Charinireturn 

860 

0916 E5 

push 

h 

861 

0917 48 

SlOV 

c jb 

862 

0918 0600 

Hi VI 

b*0 

863 

091A 213203 

lxi 

h» chariotbl 

864 

091D 09 

dad 

b 

865 

091E 56 

mov 

df m ! Get the console numbi 

866 

091F 268008 

lhld 

conin 

867 

0922 E? 

pchi 

; vector off 

868 


Charin$return! 


36? 

0923 Cl 

pop 

b 

870 

0924 El 

pop 

h 

371 

0925 C? 

ret 


872 




373 





All Information Presented Here is Proprietary to Digital Research 


95 









CP/NET User's Guide 


H Master Network I/F Module 


874 

875 

876 

877 

878 
37? 

380 

881 

882 

883 

884 

885 

886 
387 
888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 
91? 

918 

919 

920 

921 

922 

923 

924 0926 E5 

925 0927 H5 


if 280 

chartin! 

» 

f 

; Character input routine for network i/o 
} using the ALTOS SI0 ports at 125k baud 


Entry 5 Slave nuftber in register b 
Exit 5 Character in register a 

push h 
push b 

lxi h, statustports 

»gv c r b 

svi bj 0 } set (BC) = (b) 

dad b 

(IlOV Cf ft 

; Now C contains the address of the correct status port 
ftvi 1? 80 

inputloopl! 

dcr 1 

,jz retout 

} in a»(c) 

db 0edh f 78h 

ani Olh » wait for RXready 

,jz inputloopl 

| In the Altos systen, data registers are one below status registers,,, 
dcr c 

; in a,(c) } Get the character 

db 0edh,78h 

pop b 

pop h 

ret 

retout! 

stc }set carry => error flag 

pop b 

pop h 

ret 

else 

chartin! 

| Character input routine for network 1/0 

| using ALTOS SI0 ports 

} Entry! B = Slave ID 

{ Exit! A = character input 

push h 

push d 
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926 

0928 C5 


push 

b 

92? 

0929 113A09 


lxi 

d r in0 

928 

092C 68 


IfiOV 

lrb 

929 

092D 2600 


mvi 

M 

930 

092F EB 


xchg 


93 i 

0930 19 


d ad 

d 

932 

0931 EB 


xchg 


933 

0932 29 


dad 

h 

934 

0933 29 


dad 

h 

935 

0934 29 


dad 

h 

936 

0935 29 


dad 

h 

937 

0936 19 


dad 

d 

938 





939 

0937 0E50 


Bivi 

c,80 

940 

0939 E9 


pchi 


941 





942 


in05 



943 

093A 0B 


dcr 

c 

944 

093B CA7E09 


jz 

retout 

945 





946 

093E BB2B 


in 

Console4$status 

94? 

0940 E601 


ani 

1 

948 

0942 CA3A09 


Jz 

inO 

949 





950 

0945 DB2A 


in 

Console4$status-l 

951 

094? Cl 


pop 

b 

952 

0948 M 


pop 

d 

953 

0949 El 


pop 

h 

954 

094A C9 


ret 


955 





956 


ini i 



957 

094B 0B 


dcr 

c 

958 

094C CA7E0? 


Jz 

retout 

95? 





960 

094F BB2F 


in 

Console3$status 

961 

0951 E60i 


am 

1 

962 

0953 CA4B09 


JZ 

ini 

963 





964 

0956 BB2E 


in 

Console3istatus-1 

965 

0958 Cl 


pop 

b 

966 

0959 B1 


pop 

d 

967 

095A El 


poo 

h 

968 

095B C9 


ret 


969 





970 


in2J 



971 

095C 0B 


dcr 

c 

972 

095D CA7E09 


Jz 

retout 

973 





974 

0960 BB2B 


in 

Console2istatus 

975 

0962 E601 


ani 

1 

976 

0964 CASCO? 


Jz 

in2 

977 
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I dispatch 

; error return if retry timeout 
J wait for RXready 

! get the character 


error return if retry timeout 
wait for RXready 

get the character 


error return if retry timeout 
wait for RXready 
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978 0967 BB2C 

979 0969 Cl 

980 096ft B1 

981 096B El 

982 096C C9 

983 

984 096U OB 

985 096E CA7E09 

986 

987 0971 BB29 

988 0973 E601 

989 0975 CA6B09 

990 

991 0978 BB28 

992 097ft Cl 

993 097B B1 

994 097C El 

995 097D C9 

996 

997 

998 097E 37 

999 097F Cl 

1000 0980 D1 

1001 0981 El 

1002 0982 C9 

1003 

1004 

1005 

1006 
1007 
1003 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 


in Console2$s 

pop b 
pop d 

pop h 

ret 
in3! 

dcr c 

,jz retout 

in Printer2$status 

ani 1 

,jz in3 

in Printer2tstatus-1 

pop b 

pop d 

pop h 

ret 

retout! 

stc 

pop b 

pop d 

pop h 

ret 


! error return if retry timeout 
! wait for RXready 

| qet the character 

! error return (carry=l) 


end if 


Netout! 5 C = byte to be transmitted 


0983 7ft 

ffiOV 

u»d 

0984 81 

add 

c 

0985 57 

ff»OV 

d;Q 

0986 3A7808 

Ida 

BinaryftSCII 

0989 B7 

ora 

a 

098A C29E08 

,jnz 

Charout ! t 

098B 79 

ffiOV 

a?c 

098E F5 

push 

psw 

098F IF 

par 


0990 IF 

rar 


0991 IF 

rar 


0992 IF 

rar 


0993 E60F 

ani 

0FH ! m 

0995 CB8A08 

call 

Nibout 

0998 FI 

pop 

p5W 

0999 E60F 

ani 

0FH 

099B C38A08 

•J»p 

Nibout 


transmit byte in Binary mode 


mask HO nibble to L0 nibble 
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1026 

1027 


NetinJ 

1028 

099E 3A7803 

Ida 

102? 

09A1 B? 

ora 

1030 

09A2 CAAC0? 

jz 

1031 

09A5 CD2609 

call 

1032 

09A8 D8 

rc 

1033 

09A9 C38C09 

Jmp 

1034 


ASCIIin 5 

1035 

09AC CDEF08 

call 

1036 

09AF B8 

rc 

1037 

0980 87 

add 

1038 

09B1 87 

add 

1039 

09B2 87 

add 

1040 

09B3 87 

add 

1041 

09B4 F5 

push 

1042 

09B5 CDEF08 

call 

1043 

09B8 D8 

rc 

1044 

09B? E3 

xthl 

1045 

09BA B4 

ora 

1046 

09BB El 

pop 

1047 


chksint 

1048 

09BC B7 

ora 

104? 

09BB F5 

push 

1050 

09BE 82 

add 

1051 

09BF 57 

mov 

1052 

09C0 FI 

pop 

1053 

1054 

09C1 C9 

ret 

1055 

1056 


MsginI 

1057 

09C2 CD9E09 

call 

1058 

09C5 D8 

rc 

1059 

09C6 77 

mov 

1060 

09C7 23 

inx 

1061 

09C8 ID 

dcr 

1062 

09C9 C2C20? 

•jnz 

1063 

1064 

09CC C9 

ret 

1065 


HsqoutJ } HL = 

1066 


{ E = 

1067 


} D = 

1068 


; c = 

1069 

09CD 1600 

mvi 

1070 

09CF CD9B08 

call 

1071 


Msgoutloop} 

1072 

09B2 4E 

mov 

1073 

09D3 23 

inx 

1074 

09D4 CD8309 

call 

1075 

09D7 ID 

dcr 

1076 

09D8 C2D209 

.jnz 

1077 

09DB C9 

ret 


{ byte returned in A register 
} 0 = checksum accumulator 
BinaryASCII 
a 

ASCIIin 

charin {receive byte in Binary mode 

chksin 

Nib in 

a 

a 

a 

a 

psw 

Nibin 


h 

h 

a 

psw 

d } add & update checksum accu# 

d,a 

psw 

} HL = destination address 
} E = I bytes to input 
Netin 

BfQ 

h 

e 

Nsgin 


source address 
♦ bytes to output 
checksum 

preamble character 
d,0 

PreCharout 

c f m 

h 

Netout 

e 

Hsgoutloop 
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1078 




1079 


{ Network 

Initialisation 

1080 


nwiniti 


1081 


} device i 

initialization, as required 

1082 


ft 

r 


1083 


♦ 

j 


1084 

09UC 3E47 

IBV'i 

a,04?h {sets up CTC for baud rate 

1085 

09HE D331 

out 

03 Ih 

1086 

09E0 D330 

out- 

030h 

1087 

09E2 D332 

out 

032h 

1088 

09E4 3E01 

»V1 

a,l {count of one => sia>; speed 

1089 

09E6 D331 

out 

03 lh 

1090 

09E8 D330 

out 

030h ! slave *1 etc channel 

1091 

09E6 0332 

out 

032h 

1092 


ft 

f 


1093 


{ Find address of XI0S console output routine 

1094 


ft 

? 


1095 

09EC 260100 

lhld 

OOOlh 

1096 

09EF 23 

inx 

h 

1097 

09F0 5E 

1SOV 

e, a 

1098 

09F1 23 

inx 

h 

1099 

09F2 56 

»ov 

d, a 

1100 

09F3 210600 

lxi 

h, 0006h { Offset for con in routine 

1101 

09F6 19 

dad 

d 

1102 

09F7 228008 

shld 

conin } save the address 

1103 

09F6 6F 

xro 

a {return code is 0=success 

1104 

09FE C9 

ret 


1105 




1106 




1107 


S Network 

Status 

1108 


nwstati 

{ C = Slave t 

1109 

09FC 0600 

ifivi 

b,0 

1110 

09FE 217C08 

lxi 

h,networkstatus 

ini 

0601 09 

dad 

b 

1112 

0602 ?E 

fflOV 

a,n 

1113 

0603 47 

BiOV 

b-a 

1114 

0604 E6F5 

ani 

not < msgerrftffltsgovr) 

1115 

0606 77 

f&OV 

It f 4 

1116 

060? 78 

uov 

Qyb 

111? 

0A08 89 

ret 


1118 




1119 




1120 


{ Return Configuration Table Address 

1121 


cfqadrt 


1122 

0609 216B01 

lxi 

hjconf'igtbl 

1123 

060C C9 

ret 


1124 




1125 




1126 


{ Send Message on Network 

112? 


sndmsg t 

{ DE = aessaqe addr 

1128 



{ C = Slave'* 

1129 

0600 41 

10V 

b,c 

1130 

060E 3E06 

»vi 

a,aa>:$retries { 6 = aaxtretries 
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1131 


send! 


1132 

0610 F5 

push 

psw 

1133 

1134 


if 

Sfutexout 

1135 


push 

b 

1136 


push 

d 

1137 


tvi 

c f readq 

1138 


lxi 

dfUQCBHXSXftitq 

113? 


call 

bdos i obtain mutual exclusion »ess 

1140 


pop 

d 

1141 

1142 


pop 
end if 

b 

1143 

1144 

OAll EB 

>:chg 


1145 

0612 E5 

push 

h 

1146 

0613 F3 

di 


1147 

0614 0E05 

BVI 

c,ENQ 

1148 

0616 CB9E08 

call 

Charout 1 send ENQ 

1149 

0619 CD4B06 

call 

get6CK 

1150 

061C 1E05 

Bvi 

e,5 

1151 

061E 0E01 

Bvi 

CfSOH 

1152 

0620 CBCB09 

call 

Msgout } send S0H FHT BID SID FNC SIZ 

1153 

0623 6F 

xra 

a 

1154 

0624 92 

sub 

d 

1155 

0625 4F 

BOV 

c f a 

1156 

0626 CB8309 

call 

Netout 1 send HCS (header checKsua) 

1157 

062? CD4B06 

call 

get6CK 

1158 

0620 2B 

dc>: 

h 

115? 

062H 5E 

BOV 

e,B 

1160 

062E 23 

in>: 

h 

1161 

062F 10 

inr 

e 

1162 

0630 0E02 

BVi 

c ( STX 

1163 

0632 cncno? 

call 

Hsgout } send STX DB0 DB1 

1164 

0635 0E03 

BVi 

c,ETX 

1165 

0637 CD9B08 

call 

PreCharout { send ETX 

1166 

0636 6F 

xra 

a 

1167 

063B 92 

sub 

d 

1168 

0630 4F 

BOV 

c f a 

116? 

063» CD8309 

call 

Netout { send OKS 

1170 

0640 0E04 

BVi 

c f EOT 

1171 

0642 CD9B08 

call 

PreCharout | send EOT 

1172 

0645 CD4D06 

call 

get6CK 

1173 

0648 B1 

pop 

d } discard sessage address 

1174 

0649 FI 

pop 

psw j discard retry counter 

1175 

1176 


if 

sutexout 

1177 

1173 


call 
end if 

release$HX 
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1179 




1180 

0A4A FB 

ei 


1181 

0A4B AF 

xra 

a 

1182 

0A4C C9 

ret 

| A = Of successful send message 

1183 




1184 


getACKt 


1185 

0A4D CD2609 

call 

Charin 

1186 

0A50 0A580A 

jc 

getACKttimeout 

1187 

0A53 E67F 

ani 

7fh 

1188 

0A55 D606 

sui 

ACK 

1189 

0A57 C8 

rz 


1190 


getACKttimeout! 


1191 

0A58 III 

pop 

d I discard return address 

1192 




1193 


if 

iiutexout 

1194 


push 

b 

1195 


call 

releasetMX 

1196 


pop 

b 

1197 


endif 


1198 




1199 

0A59 D1 

pop 

d | DE = message address 

1200 

0A5A FI 

pop 

psw 1 A = retry count 

i201 

0A5B 3B 

dcr 

a 

1202 

0A5C C2100A 

.jnz 

send 

1203 

0A5F 3B 

dcr 

a | A = Offh 

1204 

0A60 C9 

ret 

| failed to send message 

1205 




1206 


if 

Butexin or mutexout 

1207 


releasetMXt 


1208 


| send 

back slave transmit MX message 

1209 


AVI 

CfWriteq 

1210 


lxi 

dfUQCBMXSXmitq 

1211 


.imp 

bdos 

1212 


endif 


1213 




1214- 


; Receive Message fro® Network 

1215 


rcvmsq 5 

| BE = message odd r 

1216 



1 C = Slave 4 

1217 

0A61 41 

fflOV 

bfC 

1218 


receive! 


1219 

0A62 EB 

xchq 


1220 

0A63 E5 

push 

h 

1221 

0A64 CB6C0A 

call 

gettENQ 

1222 


; a return to this point indicates an error 

1223 




1224 


receivetretryt 


1225 

0A67 FB 

ei 

{enable other processes 

1226 




1227 


if 

ifiutexin 

1228 


push 

b 

1229 


call 

releaselHX 

1230 


pop 

b 

1231 


endif 
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1233 

0668 D1 

pop 

d 

1234 

0669 C3620A 

j»p 

receive 

1235 



1236 


get$ENQ5 


1237 

066C CD110? 

coll 

xChurin 

1238 

066F D66C06 

jc 

gettENQ 

123? 

0672 E67F 

ani 

7fh 

1240 

0674 FE05 

cpi 

ENQ 

1241 

0676 C26C06 

.jnz 

get$ENQ 

1242 



1243 


if 

mutexin 

1244 


{get 

the slave x 

1245 


push 

b 

1246 


push 

h 

1247 


nvi 

c,readq 

1248 


lxi 

dfUQCBMX 

124? 


call 

bdos 

1250 


pop 

h 

1251 


pop 

b 

1252 


endif 


1253 




1254 

067? 0E06 

»V1 

c,6CK 

1255 

067B F3 

di 


1256 




1257 

067C CD9E08 

coll 

charout 

1258 

067F CB2609 

call 

Charin 

125? 

0682 H8 

rc 


1260 

0683 E67F 

ani 

7fh 

1261 

0685 FE01 

cpi 

S0H 

1262 

0687 CO 

rnz 


1263 

0688 57 

IfiOV 

d,a | 

1264 

068? 1E05 

IfiVl 

e,5 

1265 

068B CBC20? 

call 

Hsgin 

1266 

068E D4?E0? 

cnc 

Netin 

1267 

06?1 D8 

rc 


1268 

0692 76 

mov 

a,d 

126? 

0693 B7 

ora 

a 

1270 

0694 C2C106 

-jnz 

sendNAK $ 

1271 

0697 0E06 

»vi 

c,6CK 

1272 

0699 CD9E08 

coll 

Charout 

1273 

06?C CD2609 

call 

Charin 

1274 

069F D8 

rc 


1275 

0660 E67F 

ani 

7fh 

1276 

0662 FE02 

cpi 

STX 

1277 

0664 CO 

rnz 


1278 

0665 57 

mv 

d,a { 

127? 

0666 2B 

da: 

h 

1280 

0667 5E 

IftOV 

e,n 

1281 

0668 23 

in>: 

h 

1282 

066? 1C 

inr 

e 

1283 

0666 CDC209 

call 

#sqin 


Start of Header ? 


{slave in gear now serve only him 
send ACK to slave, allows it to Knit 


initialise the HCS 


S send N6K if HCS <> 0 


} initialize the CKS 
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OAAD D42609 

cnc 

Chorin 

1285 

0ABO D8 

rc 


1286 

0AB1 E67F 

am 

7fh 

1287 

0AB3 FE03 

cpi 

ETX 

1288 

0AB5 CO 

rnz 


128? 

QAB6 32 

add 

d 

1290 

0AB7 57 

ifiOV 

d T o 

1291 

0AB8 CH9E09 

call 

Netin | get Checksum byte 

1292 

0ABB H8 

rc 


1293 

0ABC 7A 

BiGV 

Qtd 

1294 

0ABH B7 

ora 

a { should be zero 

1295 

CASE CAC60A 

.jz 

sendACK ) jump if checksum OK 

1296 


sendNftKt 


1297 

0AC1 0E15 

BlVi 

CjNAK 

1298 

0AC3 C39E08 

j»p 

Chorout- ? send NAK ond return to receivetretry 

1299 


sendACK; 


1300 

0AC6 CD2609 

call 

Chorin } get EOT 

1301 

0AC9 D8 

rc 


1302 

0ACA E67F 

ani 

7fh 

1303 

0ACC FE04 

cpi 

EOT 

1304 

0ACE CO 

rnz 


1305 

0ACF 0E06 

ffivi 

CjACK 

1306 

0AIU CD9E08 

call 

Chorout 1 send ACK if checksum ok 

1307 

0AD4 D1 

pop 

d 5 discord return oddress 

1308 

0AD5 III 

pop 

d ? discord messoge address 

1309 

0AD6 FB 

ei 

1 now allow multiprocessing 

1310 




1311 


if 

mutexin 

1312 


call 

release$MX 

1313 


end if 


1314 




1315 

0AB7 AF 

xra 

0 

1316 

0AD8 C9 

ret 


1317 




1318 




1319 




1320 


restoret 


1321 

0AB9 F3 

di 


1322 

0ADA El 

pop 

h 

1323 

OAHB 22EB0A 

shld 

rtnod r 

1324 

0ABE El 

pop 

h 

1325 

OABF IU 

pop 

d 

1326 

OAEO Cl 

pop 

b 

1327 

0AE1 FI 

pop 

psw 

1328 

0AE2 F5 

push 

psw 

1329 

0AE3 C5 

push 

b 

1330 

0AE4 D5 

push 

d 

1331 

0AE5 E5 

push 

h 

1332 

0AE6 E5 

push 

h 

1333 

0AE7 2AEH0A 

lhld 

rtnodr 

1334 

OAEA E3 

xth 1 


1335 

0AF.B FB 

ei 


1336 

OAEC C9 

ret 


1337 

OAFP 

rtnadrt as 

2 
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1339 

if 

WtchDq 

1340 

} WatchDoq Tinier Process 

1341 

* 

f 


1342 

Hatchling 1 


1343 

»vi 

c,Delay 

1344 

lxi 

d,60 | dl 

1345 

coil 

bdos 

1346 

lhld 

WatchDogTime 

134? 

inx 

h 

1348 

shld 

WatchDogTime 

1349 

lxi 

h.WatchDogTai 

1350 

avi 

c,N#b81vs 

1351 

UatchBogLoopI 


1352 

lxi 

djOOOSh 

1353 

dad 

d 

1354 

IfiOV 

a,m 

1355 

ora 

a 

1356 

jz 

WatchDoqDec 

1357 

inx 

h 

1358 

ana 

A 

1359 

dcx 

h 

1360 

Jnz 

WatchDoqDec 

1361 

push 

h 

1362 

inx 

h 

1363 

inx 

h 

1364 

di 


1365 

IfiOV 

e,m 

1366 

inx 

h 

1367 

IfiOV 

dfffl 

1368 

ei 


1369 

lhld 

WatchDogTime 

1370 

IfiOV 

a,l 

1371 

sun 

e 

1372 

ITlOV 

1)0 

1373 

IfiOV 

a, h 

1374 

sbb 

d 

1375 

IfiOV 

h,a 

1376 

ifivi 

a ,10 ,‘ t st 

137? 

sub 

1 

1378 

16 vi 

•1,0 

1379 

sbb 

h 

1380 

pop 

h 

1381 

•jnc 

WatchDogDec 

1382 

push 

h 

1333 

inx 

h 

1384 

ifivi 

m,0ffh i WDT. 

1385 

inx 

h 

1386 

inx 

h 

138? 

inx 

h 

1388 

push 

b 

1389 

IfiOV 

e,m } E = 


dly for 1 second 


I waiting % timeout set 
} save HI -> WDT,waiting 


! t seconds since started Charinn 


DDT.timeout = Offh 
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1390 * V1 

1391 tali 

1392 P°P 

1393 P°P 

1394 

1395 HatchBogBec! 

1396 dcr 

1397 

1398 

1399 j»P 

1400 endif 

1401 

1402 ? 

1403 I Setup 

1404 » 

1405 Setup! 

1406 OAEF F5 push 

1407 QAF0 C5 push 

1408 OAF1 D5 push 

1409 0AF2 E5 push 

1410 0AF3 CDDC09 coll 

1411 

1412 if 

1413 »vi 

1414 lxi 

1415 coll 

1416 »vi 

1417 l>:i 

1418 coll 

1419 endif 

1420 

1421 if 

1422 0AF6 0E36 »vi 

1423 0AF8 11CC01 lxi 

1424 0AFB CD860S coll 

1425 0AFE 0E8B «vi 

1426 OBOO 116604 lxi 

1427 0B03 CD8608 coll 

1428 endif 

1429 

1430 if 

1431 lxi 

1432 *vi 

1433 coll 

1434 else 

1435 if 

1436 ' lxi 

1437 »vi 

1438 coll 

1439 endif 

1440 endif 


c»Flagset 

bdos 

b 

h 


UotchDoqloop 

UatchDoq 


code for Network Interface Procedures 


psw 

b 

d 

h 

nwinit. 

iiutexin or iutexout 
c,*okeq 
d r QC8HXSX* i tq 
bdos 

c,writeq 

dfUQCBHXSXsitq 

bdos 


nail 

CjiwKeq 

d,HoilBox 

bdos 

c f writeq 

dfhoilBoxUQCB 

bdos 


UtchDq 

dfHatchBogPB 

c f creotep 

bdos 

NmbSlvs GE 2 

dfNtwrKIPl 

c,creotep 

bdos 
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1441 

1442 

OB06 0E8E 

f&vi 

Cfdsptch 

1443 

0B08 CD8608 

call 

bdos 

1444 

OBOB 0E9A 

mvi 

c r sydatad 

1445 

0B0B CD8608 

call 

bdos 

1446 

OBIO 110900 

lxi 

d»9 

144? 

0B13 19 

dad 

d 

1448 

OBI4 11AB01 

lxi 

d,conf'igtbl 

1449 

0B17 73 

fflOV 

a,e 

1450 

OBI8 23 

inx 

h 

1451 

0819 72 

ftOV 

a»d { s’ 

1452 

1453 


if 

aodea 

1454 


J Initialise the not 

1455 


avi 

c,CR 

1456 


nvi 

bfSlvaodea 

145? 


call 

Charout 

1458 


nvi 

Ct'Z' 

1459 


call 

Charout 

1460 


mvi 

CjCR 

1461 


call 

Charout 

1462 

1463 


UtSpacet 

call 

Charin 

1464 


jc 

SetupDone 


1465 


ani 

07fh 

1466 


cpi 

/ / 

1467 


■jnz 

WtSpace 

1468 


»vi 

Cj'A' 

1469 


call 

Charout 

1470 


SetupDonel 


1471 


endif 


1472 




1473 

0B1A El 

pop 

h 

1474 

0B1B D1 

pop 

d 

1475 

0B1C Cl 

pop 

b 

1476 

0B1D FI 

pop 

psw 

1477 


♦ 

f 


1478 


1 Network Interface Ree 

1479 


* 

J 


1480 


Initt 


1481 

0B1E F5 

push 

psw 

1482 

0B1F C5 

push 

B 

1483 

0B2O D5 

push 

D 

1434 

0B21 E5 

push 

H 

1485 

0B22 5E 

•SOV 

e.a 

1436 

0B23 23 

inx 

h 

148? 

0B24 56 

aov 

d,a 

1488 

0B25 0E86 

avi 

c jftakeq 

1489 

0B27 CD8608 

call 

bdos 

1490 

0B2A C0D90A 

call 

restore 

1491 

0B2D EB 

xchg 


1492 

0B2E 5E 

»ov 

e,a 


f A = network i/f console dev # 
\ 8C= buffer address 
? DE= liQCB ntwrk queue out 
{ HL= UQCB ntwrK queue in 


sake the ntwrk queue in 
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1493 

0B2F 23 

inx 

h 

1494 

0B30 56 

mov 

d»i 

1495 

0B31 0E86 

a vi 

c f »akeq 

1496 

0B33 CB8608 

call 

bdos 

1497 




1498 


Loop*. 


1499 

0B36 CDB90A 

coil 

restore 

1500 

0B39 50 

3jOV 

d r b 

1501 

0B3A 59 

mov 

SjC 


1502 

1503 


1504 

0B3B 4F 

»ov 

c,a 

1505 

0B3C C0610A 

cull 

rcvBsg 

1506 

1507 

0B3F CB090A 

call 

restore 

1508 

0B42 EB 

xchg 


1509 

0B43 0E8B 

•vi 

Cjwriteq 

1510 

0B45 CB8608 

call 

bdos 

1511 

1512 

0B48 CDD90A 

call 

restore 

1513 

0B4B 0E89 

»vi 

c f readq 

1514 

0B4H CD8608 

call 

bdos 

1515 

1516 

0B5O CDD90A 

call 

restore 

1517 

0B53 50 

BOV 

d,b 

1518 

0B54 59 

BOV 

e»c 

1519 

1520 

4 

J 

0B55 4F 

BOV 

CfO 

1521 

0B56 CD0B0A 

call 

sndBsq 

1522 

1523 

0B59 C3360B 

■imp 

Loop 

1524 

1525 

0B5C 

end 
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moke the ntwrK queue out 
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ACK 

0006 

690* 

1188 

1254 

1271 

1305 

ACTIVE 

0010 

665* 





ASCIIIN 

09AC 

1030 

1034* 



BUGS 

0886 

46 

700* 

1139 

1211 

1249 



1427 

1433 

1433 

1443 

1445 

BDOSADR 

0000 

53* 

59* 

701 



BINARYASCII 

0878 

620* 

1011 

1028 



BUFFERQO 

00A6 

49 

89 

118 

138* 


B UFFERQ10ADDR 

0084 

116 

117* 




BUFFERQOOAIHiR 

00A4 

134 

135* 




CFGABR 

0A09 

1121* 





CHARIN 

0926 

836 

875* 

917* 

1031 

1185 

CHARINRETURN 

0923 

859 

868* 




CHARIOTBL 

0882 

657* 

863 




CHAROUT 

089E 

709 

713 

721* 

759* 

1013 



1457 

1459 

1461 

1469 


CHKSIN 

09BC 

1033 

1047* 




CQNFIGTBL 

01AB 

486* 

1122 

1448 



CONIN 

0880 

632* 

866 

1102 



CONSOLE2STATUS 

002B 

643* 

653 

806 

80? 

812 

C0NS0LE33TATUS 

002F 

642* 

652 

794 

795 

800 

C0NS0LE4STATUS 

002B 

641* 

651 

782 

783 

738 

CR 

000D 

692* 

1455 

1460 



CREATEP 

0090 

679* 

1432 

1437 



DEBUG 

0000 

28* 

40 




BELAY 

008D 

677* 

1343 




DSPTCH 

008E 

678* 

1442 




ENG 

0005 

689* 

114? 

1240 



EOT 

0004 

638* 

1170 

1303 



ETX 

0003 

687* 

1164 

1287 



FALSE 

0000 

23* 

24 

26 

28 

29 

FCBTABLE 

01E6 

498 

540* 




FLAGSET 

0085 

673* 

1390 




GETACK 

0A4D 

1149 

1157 

1172 

1184* 


GETACKTIHEOUT 

0A58 

1186 

1190* 




GETENQ 

0A6C 

1221 

1236* 

1238 

1241 


INO 

093A 

927 

942* 

948 



INI 

094B 

956* 

962 




IN2 

095C 

970* 

976 




IN3 

096D 

983* 

989 




INIT 

0B1E 

188 

277 

362 

1430* 


LF 

000A 

691* 





LOOP 

0B36 

1498* 

1523 




HAIL 

FFFF 

31* 

524 

1421 



MAILBOX 

01CC 

528* 

543 

1423 



HAILBOXABR 

046A 

544 

546* 




MAILBOXES 

046C 

547 

556* 




MAILBOXUQCB 

0466 

542* : 

1426 




MAILBUFFERSIZE 

0200 

554* 

597 

600 

604 

609 

HAKEti 

0086 

674* 1413 

1422 

1488 

1495 


974 

960 

946 


978 

964 

950 


33 35 36 


614 
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HAXRETRIES 

OOOA 

634# 1130 






HQHEH 

0000 

29* 1453 






MSGERR 

0008 

666* 

846 

1114 





HSGIN 

09C2 

1055* 1062 

1265 

1283 




HSGOUT 

09CD 

1065* 1152 

1163 





HSG0UTL00P 

09B2 

1071* 1076 






MSGGVR 

0002 

668* 1114 






HSTRHAIL 

046E 

560* 







HSTRHAILBUFFER 

0478 

564 

596* 






HUTEXIN 

0000 

35* 

465 

1206 

1227 

1243 

131 i 

1412 

MUTEXOUT 

0000 

36* 

465 

1134 

1176 

1193 

1206 

1412 

NAK 

0015 

693* 1297 






NET IN 

099E 

1026* 1057 

1266 

1291 




NETQUT 

0983 

1007* 1074 

1156 

116? 




NET WORKST ATUS 

087C 

626* 

345 

847 

1110 




NIBATOF 

0895 

706 

710* 






NIBIN 

08EF 

835* 1035 

1042 





NIBINRETURN 

090F 

841 

844 

851* 





NIBOUT 

088A 

704* 1021 

1024 





NNBFCBS 

0010 

38* 

497 

540 





NMBHA1L 

0004 

549* 

554 

557 





NHB3LVS 

0001 

41* 

53* 

148 

150 

237 

23? 

326 



512 

518 

540 

572 

580 

588 

602 



1435 







NHSG 

0001 

500* 







NTWRK 

0004 

667* 







NTURKIPO 

0002 

65* 







NTURKISO 

0036 

43 

6? 

93* 





NTWRKRXRDY 

0001 

669* 







NTWRKTXRDY 

0080 

664* 







NUINIT 

09BC 

1080* 

1410 






NUSTAT 

09FC 

1108* 







OUTO 

08AF 

770 

781* 

735 





OUT! 

08BF 

794* 

797 






0UT2 

03CF 

806* 

80? 






0UT3 

08BF 

813* 

821 






POLL 

0083 

681* 







PRECHAROUT 

089B 

715* 1070 

1165 

1171 




PRINTER2 

0010 

695* 







PRINTER2STATUS 

002? 

644* 

654 

818 

819 

824 

987 

991 

QCBNTWRKQIO 

0066 

102* 

115 






QCBNTWRKQOO 

0086 

120* 

133 






RCVMSG 

0A61 

1215* 1505 






READ8 

008? 

675* 1137 

1247 

1513 




RECEIVE 

0A62 

1218* 

1234 






RECE1VERETRY 

0A67 

1224* 







RESTORE 

OAB? 

1320* 1490 

1499 

1507 

1512 

1516 


RETOLU 

097E 

895 

909* 944 

958 

972 

985 

997* 

RTNADR 

OAED 

1323 

1333 

1337* 




SENS 

0A10 

1131* 1202 






SENDACK 

0AC6 

1295 

1299* 





SENUNAK 

0AC1 

1270 

1296* 





SETUP 

OAEF 

100 

1405* 






4i4 

607 


48? 506 

612 1350 
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SIZEfiAIL 

0080 

550* 

554 

558 


SLVOHAIL 

0473 

564# 




SLVOHAILBUFFER 

0478 

570 

599# 



SNBHSG 

0A0D 

1127# 

1521 



SOH 

0001 

685# 

1151 

1261 


STX 

0002 

686* 

1162 

1276 


SYDATAD 

009A 

680# 

1444 



TRUE 

FFFF 

24* 

31 



UQCBNTWRK6I0 

0080 

47 

87 

114# 


UQCBNTWRKQOO 

00A0 

48 

88 

132* 


WRITER 

008B 

676# 

1209 

1416 

1425 

WTCHBG 

0000 

33# 

410 

1339 

1430 

XCHARIN 

0911 

855* 

1237 



Z80 

0000 

26* 

646 

720 

874 
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A 
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4 

ALWAYS$RETRY, 28 

B 

Basic Disk Operating System, 

13 

basic I/O system, 13 
BDOS, 13 
BIOS, 13 
breakpoints, 28 
BROADCST command, 10 
bus configuration, 5 

C 

character I/O interface, 34 
charin procedure, 27, 28 
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CONFIGTBLADR subroutine, 24 
CONTROL-P, 10 
CP/M, 1 

CP/M function code field, 15 
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CP/NOS, 2 

CPNETLDR command, 8 
CPNETLDR execution, 9 
CPNETLDR program, 14, 17, 23 
CPNETSTS command, 9 

D 

debug a single requester, 33 
default password, 32 
delay procedure, 27 
destination address, 15 
DSKRESET command, 8 

E 

electronic mail, 19 
electronic mail system, 3 
ENDLIST command, 8 
error checking, 16 


F 

FCB table, 30 
function number, 17 

G 

GET CONNFIGURATION TABLE ADDRESS 
function, 22 

GET MESSAGE NETWORK STATUS 
function, 22 


I/O facilities, 3 
I/O system entry points, 23 
implementing MP/M server, 3 
information address, 17 
initialization, 23 
interprocessor message format, 3 

L 

LOCAL command, 8 
local data segment, 32 
LOGIN command, 6, 18 
login message, 18 
LOGOFF command, 6, 19 
loosely coupled processors, 3 

M 

mail box data structures, 32 
message destination processor 
ID field, 15 
message format, 16 
message format code, 15 
message source processor ID 
field, 15 
messages, 3 
MP/M, 1 
MP/NET, 2 

MRCVMAIL command, 10 
MSNDMAIL command, 11 
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N 

NDOS, 13, 17 

NETWORK command, 7 

Network Disk Operating System, 

3, 13, 17 

network interface process, 1, 29 
network interface process 
descriptors, 29 

network interface processes, 3 
network mail, 10 
network status byte, 24 
NETWORKSTS subroutine, 24 
NETWRKIF, 1, 29 
NETWRKIF initialization, 29 
NETWRKIF.ASM, 32 
NTWRKERROR subroutine, 25 
NTWRKWBOOT subroutine, 25 

P 

packaging overhead, 14 
portability, 32 
primary entry point, 17 
processors, 3 
protocol, 17 

Q 

queues, 29 

R 

RCVMAIL, 7 
real-time, 1 

reassignment of physical and 
logical devices, 25 
RECEIVE MESSAGE FROM NETWORK 
function, 21 

RECEIVEMSG subroutine, 25 
relationships between 
processes, 30 
requester, 1, 23 
requester configuration table, 
9, 17, 25, 26 
requester facilities, 5 
requester portion of CP/NET, 13 
requester support processes, 30 
resident system processes, 3 
ring configuration, 4 
RMAC, 26, 31 

S 


SENDMSG subroutine, 24 
sequential I/O, 1 
server, 1, 29 

server and single requester 
configuration, 4 
server configuration table, 31, 
server facilities, 5 
size field, 16 
slave network I/O system, 

1, 3, 13, 23 

slave support processes, 3 
SNDMAIL command, 6 
SNIOS, 1, 13, 23 
SNIOS entry point, 23 
SPOOL command, 11 
spooler, 10 

T 

tightly coupled processors, 3 
timeout code, 28 

W 

watchdog table, 32 
watchdog timer process, 32 


SEND MESSAGE ON NETWORK 
function, 19 
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